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the IBM System/360 Disk Operating System 
Sort/ Merge program- It is intended for use by 
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design. Program logic information is not 
necessary for the operation of the program? 
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PREFACE 



This Program Logic Manual (PLM) is a 
detailed guide to the IBM System/360 Disk 
Operating System Sort/Merge Program; it 
supplements the program listing by provid- 
ing descriptive text and flowcharts. 

Effective use of this manual requires an 
understanding of IBM System/360 operation 
and of IBM System/360 Disk Operating System 
service programs, assembler language, macro 
instructions, and sort/merge program speci- 
fications. Reference publications for this 
information are: 

* IBM System/360 Principles of Operation , 
Form A22-6821. 

* IBM System/360 Disk Operating System, 
Sort/Merge Program Specifications , Form 
C24-3444. 

* IBM System/360 Disk operating System, 
Data Management Concepts , Form 
C24-3<*27. 



IBM System/360 Disk and Tape Operating 
Systems, Assembler Specifications , Form 
C24-3414. 



Titles and abstracts of other related 
publications are listed in the IBM 
System/360 Bibliography , Form A2 2-68 22. 



This manual consists of eight major 
sections. The first section is an intro- 
duction to the five major components 
(phases) of the sort/merge program. The 
next five sections describe each major 
component, starting with a general discus- 
sion of the phase. Each major component is 
further subdivided into logical elements 
(routines). Finally, the function blocks 
that make up each logical element are des- 
cribed in detail. The seventh section 
includes the optional routines (data con- 
version, etc. ) that are available for all 
the phases. 



IBM System/ 360 Disk Operating System, 
System Control and System Service Pro- 
grams , Form C24-3428. 

IBM System/360 Disk Operating System, 
Supervisor and Input/Output Macros , 
Form C24-3429. 

IBM System/360 Disk Operating System, 
System Generation and Maintenance , Form 
C24-5033. 



The last section of the manual consists 
of additional reference material for use in 
analyzing program details. 

The flowcharts for all the major compo- 
nents and for the optional routines are 
located at the end of the manual. The 
detailed flowcharts are identified by the 
letters AA through ZZ. Numerals, such as 
00 for the program level flowchart, iden- 
tify the more general flowcharts. 
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INTRODUCTION 



The IBM System/ 360 Disk Operating System 
Sort/Merge Program enables the user to sort 
multiple files of random records, or merge 
multiple files of sequenced records, into 
one sequential file. This program is 
designed to meet the sorting and merging 
requirements of disk-oriented installations 
with 16K to 51 2K bytes of main storage. It 
is a generalized program that must be 
incorporated into the resident version of 
the Disk Operating System library. The 
program is designed for operation in a 
disk- resident operating system environment 
under the supervision of a control program. 



At execution time, control statements 
(see Program Characteristics ) will tailor 
the generalized sort/merge program to the 
user's specific application* The 
sort/merge control statements are punched 
into cards and inserted into the card 
reader with the symbolic address SYSIPT. 
All required user-prepared job-control 
statements are read by the device {either a 
card reader or a magnetic tape unit) 
assigned to SYSRDR. The sort/merge program 
will be retrieved in overlays from the 
disk- resident core image library by the 
control program. 

Control-data information may be 
contained in as many as 12 fields in each 
record. The program assumes that input 
records for a sort operation are in random 
sequence. Records can be sorted or merged 
into ascending or descending sequence, and 
an individual sequence can be specified for 
each control -data field. The output 
sequence for a merge-only operation must be 
the same as the input sequence. 

The sort/merge program is divided into 
five phases (see Chart 00): 

Assignment Phase (Phase 0) 
Internal-Sort Phase (Phase 1) 
External-Sort Phase (Phase 2) 
Final Merge Phase (Phase 3) 
Merge-Only Phase (Phase 4) 

If sorting is to be done, the assignment 
phase and phases 1, 2, and 3 are executed. 
If only merging is to be done, the 
assignment and merge-only phases are 
executed. (See Figures 1 and 2 for I/O 
flow diagrams.) 



The sort/merge program: 

• Translates mnemonic sort/merge 



control-*ca rd information that describes 
the file parameters for each input and 
output file- 



Sorts multiple input files. 



Allows multivolume input and/or output 
for tape and disk. 

Provides for input from and output to 
disk storage (IBM 2311 Disk Storage 
Drive (s) only) , or 7- or 9-track 
magnetic tapes (see System Requirements 
for possible combinations of 7- and 
9-track tapes). Disk and tape input 
and output can be distributed over 
multiple drives. 

Merges up to four tape and/ or disk 
input files. 

Provides for writing on disk or tape an 
output file that consists of the disk 
addresses of the sorted records 
(ADDRO0T=A option) or disk addresses 
plus control data of the sorted records 
(ADDROUT=D option) . 

Provides for determining the number of 
work area tracks required for a sort 
operation (CALCAREA option). 

Provides for specification of alternate 
input tape drives and alternate output 
tape drives for either a sort or a 
merge operation. 

Provides checkpoint, interrupt, and 
restart procedures for sort operation. 

Provides exits and storage areas for 
user- writ ten routines. 

Prints out control- card information 
(optional) , record counts at the end of 
phases 1,3, and 4, and necessary 
diagnostics. 

Provides, for sorting, the option to 
bypass unreadable data blocks when the 
input file is being read from tape, or 
indicates the need for operator 
intervention when the input file is 
being read from tape or disk. 

Provides, for the merge-only operation, 
the option to bypass unreadable data 
blocks when the input files are being 
read from tape or disk, or to indicate 
the need for operator intervention. 
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(Up to 4 Tape or Disk or Mixed Tape and Disk) 



Checks the sequence of the records 
during the final output pass of a sort 
(phase 3) or during a merge (phase 4)* 



Permits the user to specify either 
ascending or descending sequence for 
each individual control- data field* 



Processes standard System/ 360 volume 
and file labels* 



Provides exits for user processing of 
non-standard labels (on tape) and user 
labels (on tape or disk)* 
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Permits mixed labels for tape input to 
a merge-only operation. 



PROGRAM ORGANI Z ATI ON 



ASSIGNMENT PHASE (PHASE 0) 

The assignment phase: 

1. Reads and stores data from the 
sort/merge control statements, 

2. Performs a diagnostic check for missing 
sort/merge control statements and 
duplicate or invalid field definers. 

3. Prints out the sort/merge control 
statements and parameters if the PRINT 
option is specified. 

4. Converts the parameters to binary 
format. 

5. Calculates and stores the constants 
required by the following phases, 



INTERNAL-SORT PHASE (PHASE 1) 



program-determined order of merge. Phase 3 
performs the last pass of the external 
sort. If the number of sequences produced 
by phase 1 is equal to or less than the 
order of merge, phase 2 is bypassed and 
only phase 3 is executed. 

Both phases provide the checkpoint, 
interrupt , and restart feature. Phase 2 
uses the interleaved output technique; 
phase 3 allows multi volume output files and 
provides exits from the program to allow 
user modifications by user- prepared 
routines. 



MERGE-ONLY PHASE (PHASE 4) 



The merge-only phase is used to merge 
existing presorted files into one 
sequential file. A maximum of four input 
files can be merged and these may be on 
disk and/ or tape in any combination. The 
program allows for multiple- volume input 
and output files. The program also allows 
a single file to be reblocked and sequence- 
checked. Exits from the program are 
provided to allow for user modifications by 
user-prepared routines. 



Phase 1 performs the initial sequencing of 
the input file(s). The records are read 
into the ma in- storage input area and sorted 
into sequences that are at least as long as 
the number of records that can be sorted 
internally at one time. These sequences 
are written in either the first or the 
second half of the disk- storage work area. 
The output is interleaved to minimize the 
time required to complete the sort. 

Phase 1 sorts multiple input files 
(these files may also be multi volume). 
Exits from the program are provided to 
allow processing and/or label- checking by 
user- prepared routines. The checkpoint, 
interrupt, and restart procedure is 
provided at the end of the phase. 



EXTERNAL SORT PHASES (PHASE 2 AND PHASE 3) 



The external sort phases merge the ordered 
sequences produced by the internal sort 
phase, They perform a 2-way to 7-way merge 
on the record sequences produced by the 
internal sort phase. 

Phase 2 repeatedly merges the sequences 
from the 2311 disk-storage work area until 
their number is equal to or less than the 



PROGRAM GENERATION 



The sort/merge program resides in the 
relocatable library and consists of three 
entities : 

• Primary processor generation modules 

• Intermediate processor generation 
modules 

• Relocatable object modules 



These modules are designed to enable the 
user to linkage -edit into the core image 
library only those modules required to 
formulate a generalized sort/merge program 
tailored to the user's specific job 
applications. At system generation time, 
the user has the choice of linkage editing 
any one of seven distinct sort/merge object 
programs into the core image library. 
After the specific object program has 
become resident in the core image library , 
the user can delete all the modules from 
the relocatable library. 

The programs that can be generated at 
linkage-edit time are: 

1. The entire sort/merge program. 
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2. A program that will (1) sort 
fixed-length records, and (2) perform 
the ADDROUT option for fixed- or 
variable -length records* 

3. A program that will (1) sort 
variable- length records, and (2) 
perform the ADDROUT option for f ixed- 
or variable-length records. 

4. A program that will (1) sort fixed- or 
variable- length records, and (2) 
perform the ADDROUT option for fixed- 
or variable- length records. 

5. A program that will merge fixed- or 
variable- length records. 

6. A program that will (1) sort 
fixed-length records, (2) merge fixed- 
or variable- length records, and (3) 
perform the ADDROUT option for fixed- 
or variable- length records - 

7. A program that will (1) sort 
variable-length records, (2) merge 
fixed- or variable- length records, and 
(3) perform the ADDROUT option for 
fixed- or variable- length records. 

For further details about program 
generation for sort/ merge, see IBM 
S ystem/360 Disk Operating System System 
G eneration and Maintenance , Form C24-5033. 



PROGRAM CHARACTERISTICS 



INTERLEAVED OUTPUT 



Interleaving is a technique for writing 
sequences in the disk work area in a manner 
that will minimize seek time during each 
subsequent pass. It may be used in a 
system with only one disk device but is 
most efficient when used with two or more 
disk devices. The disk work area is 
formatted for interleaved output during 
phase 1 and records are blocked for output 
before being written in the work area, 
except when there is only one sort block 
per track. 

The interleave factor (sometimes called 
the gap factor) is equal to the order of 



merge at the start of a pass and may be 
reduced in the late stages of the pass. 
Figure 3 is an example of interleaved 
output when the order of merge is four. 
The blocks that constitute the first 
sequence are written at every fourth 
address, starting with the first address. 
The blocks that constitute the second 
sequence are then written at every fourth 
address, starting with the second address. 
After the first four sequences have been 
written, the allotted disk work area (in 
this example, 1 x 3 = 12 blocks) will have 
been filled and the pattern is then 
repeated every four sequences. (For a more 
detailed description of interleaving, see 
the introduction to phase 2. ) 



JOB CONTROL STATEMENTS 

Standard job- control cards are required to 
define a sort or merge operation to the 
job-control program. These cards are: 

» General— JOB, ASSGN, DATE, EXEC 

• Input Fiie(s) — VOL,DLAB or TPLAB, XTENT 

• Work Area — VOL, D LAB, XTENT 

• Output File — VOL,DLAB or TPLAB, XTENT 

For a complete discussion of the 
job- control cards and their formats, see 
IBM System/360 Disk Operating System, 
System Control and System Service Programs , 
Form C24-3428, and IBM System/360 Disk 
Operating System, Sort/Merge Program 
Specif i cations . Form C24-3444. 

Note: For merge- only operations, the 

program requires two consecutive 
disk tracks to temporarily store 
overlay DSORT401 and a portion of 
DSORT402 as they exchange residence 
in main storage at various points in 
the program. The user must define 
this area as at least a 2-track work 
area. 

The job-control statements are followed 
by the sort/merge control statements. 
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Example: Number of Blocks in an Output Sequence =3 
Order of Merge (M) =4 
Blocks per Tracks Formatted by Phase 1 =5 

Note: Numbers in circles indicate the order in which blocks are written. 



Interleave Factor (4)- 
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Track 1 
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Figure 3. Interleaved Method of Output 



SORT/ MERGE CONTROL STATEMENTS 



Control statements are necessary to define 
the user's specific sort or merge 
operation. The user must describe the 



files to be sorted or merged, the 
control-data fields, the program options to 
be used, and the modifications to be made 
to the program. (See Figure <*, Summary of 
Sort/Merge Control Statements.) This 
information is punched into 
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STATEMENT 
DEFINER 


STATUS 


OPERAND DEFINER, STATUS, AND VALUE FORMAT 


SORT 


Required for 
sort runs 


FIELDS (Required) = (P1,M1, SI ... P12,M12,S12) 
FORMAT (Required) = xx 
FILES (Optional) = m 
SIZE (Required) = n 


MERGE 


Required for 
merge runs 


FIELDS (Required) = (PI, Ml, SI ... P12,M12,S12) 
FORMAT (Required) = xx 
FILES (Required) =m 


RECORD 


Required 


TYPE (Required) = x 

LENGTH (Required) = (LJ,L2,L3) for FLR 
= (Ll,L2,L3 / L4,L5)for VLR 


INPFIL 


Required 


INPUT (Required) = X for sort 

= (Xa, Xb, Xc, Xd) for merge -only 
VOLUME (Optional)= (Na, Nb, Nc,...Ni) 
BLKSIZE (Required) = (n, X) 
OPEN (Optional) = n 
CLOSE (Optional) = n 
BYPASS (Optional) 


OUTFIL 


Required 


BLKSIZE (Required)- n 
OUTPUT (Required) = x 
OPEN (Optional) = n 
CLOSE (Optional) = n 
NOTPMK (Optional) 


MODS 


Required if 
user-written 
subroutines 
will be added 


PHI = (Name, Address, Ell, E12, E13) 

PH3 = (Name, Address, E31, E32) 

PH4 = (Name, Address, E41, E42, E43, E44, E45) 


OPTION 


Optional 


PRINT (Optional) 
STORAGE (Optional) = n 
VERIFY (Optional) 
KEYLEN (Optional) = x 
RESTART (Optional) 
ADDROUT (Optional) = x 
CALCAREA (Optional) 
LABEL (Optional) = (0,1) 

(0,Ta,lb,lc,ld) 


END 


Required 





Figure 4. Summary of Sort/Merge Control Statements 



control- statement cards, and these cards 
are inserted into the input stream at 
SYSIPT. 

During the assignment phase, each 
control statement is checked for incorrect 
entries and inconsistent combinations of 
entries. If any errors are detected, the 
program prints a message that indicates the 
nature of each error* When all the control 
statements have been checked, if no 
abort-type errors were detected the user is 



given the option to correct the errors and 
restart or to cancel the job. 

If certain optional entries are not 
made, the assignment phase will assume 
predetermined parameters. 

For a complete discussion of control 
statements and control card format, see IBM 
System/360 Disk Operating System, 
Sort/Merge Program Specif ications . Form 
C24-3444. 
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RECORD FORMAT 



The sort/merge program can process 
fixed-length or variable- length records. 
These records may be unblocked or blocked 
in fixed- or variable- length blocks (see 
Figures 5 and 6)* The most efficient input 
file record format is fixed- length records 
in fixed- length blocks, and the least 
efficient is variable- length records 
unblocked. 



The KEY field, on disk input files, is 
used by the sort/merge program only with 
fixed-length unblocked records. The KEY 
field in all other formats is bypassed. 



For a merge- only operation, the 
sort/merge program will accept input from 
mixed storage media (tape and disk). 
However, any one file must reside 
completely on disk or tape. There is no 
restriction on how the input media can be 
mixed. 
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H 



Logical Record 






Count Area 



Record 1 
Data 



Record 2 
Data 



Record 3 
Data 



Record 4 
Data 



\*\ 

A 

MA 



Count Area 



m 

G 
A 

MA 



Record 5 
Data 



Record 6 
Data 






Fixed - Length Records in Variable - Length Blocks ( Input ) 
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Variable Length -- Unblocked Records ( Input /Output ) 
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Variable Length -- Blocked Records ( Input/ Output ) 

BL ( Block Lengths ) = The number of bytes between gaps separating count areas. 



Figure 5* Disk Input/Output Blocking Formats 
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Unblocked Fixed -Length Records (Input/ Output) 
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Unblocked Variable -Length Records (Input/Output) 
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Blocked Variable -Length Records (Input/Output) 

BL ( Block Length ) = The number of bytes between interrecord gaps. 

Figure 6. Tape Input/Output Blocking Formats 



For a complete discussion of record 
formats, see IBM System/ 3 60 Disk Operating 
System, Data Management Concepts , Form 
C24-3427 and IBM System/360 Disk Operating 
S ystem, Sort/Merge Program Specifications , 
Form C24-3444. 



CONTROL-DATA FIELDS 



A control-data field is a group of adjacent 
bytes within a data record* The program is 
capable of sorting or merging records with 
up to 12 control-data fields with a maximum 
total length of 256 bytes. 



The most significant field is the major 
control field, and is always compared 
first- All other fields are minor fields, 
and are compared according to their 
relative significance- A given minor 
control field is compared only if the major 
control fields are compared and found to be 
equal. 

The individual fields may be adjacent or 
separated; if they contain only unsigned 
binary data, they may overlap (see Figure 
7)* They may occur anywhere within a data 
record except in the record-length field at 
the beginning of each variable-length 
record. 
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Figure 7. Control Field Formats 



A given control field roust be located in 
the same relative position in each record 
of all files* If, for example, the first 
two bytes of the records in a file are 
designated as the major control field, the 
program assumes that these two bytes are 
the major control field in every record of 
that file. 



specified in the OPTION statement, and the 
records can be sorted on the contents of 
the KEY field* 



Control data may be in any one of the 
following formats: 



If a KEY is associated with each disk 
input record (fixed-length unblocked 
records only) f the KEYLEN entry can be 



1- Binary (character). 

2. Packed- or zoned- decimal. 
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3- Normalized floating point (in either 
the short or long format). 



4. Fixed- point. 

The following limitations must be 
observed when setting up the control fields 
for a files 

1. A control field for a variable- length 
record cannot include the record- length 
field. 

2. Each control field must begin and end 
on a byte boundary. 

3. Each control field must be at least one 
byte long. 

4. Each control field may be a maximum of: 



Files may be sorted or merged in either 
ascending or descending sequence. The 
sequence of each control-data field is 
independent of the other control-data 
fields. For example , a user may specify 
ascending sequence for the major control 
fields, and descending sequence for all the 
minor control fields. 

The control -data fields are defined for 
the program by means of user-prepared 
control statements. These statements 
specify the type of operation (sort or 
merge) , the sequence (ascending or 
descending), and the size and location of 
each control-data field. 

For further details about data formats, 
see IBM System/360 Disk Operating System f 
Sort/Merge Program Specifications , Form 
C24-3444. 



256 bytes when using binary 
(character) data. 

16 bytes (including the sign) when 
using decimal data. 

4 bytes when using normalized 
floating-point data (short format). 

8 bytes when using normalized 
floating-point data (long format). 

256 bytes (including the sign) when 
using fixed- point data. 



DATA CONVERSION 



The sort/merge program includes 
data- conversion and -reconversion routines. 
Data in the format of floating point, fixed 
point, packed decimal, or zoned is 
converted, before processing, to binary so 
that it can be compared. The data is 
reconverted to its original form before the 
output file is written. 



5. The total of the control- field lengths 
must not exceed the input record length 

(the minimum record length minus four 
when processing variable-length 
records), unless overlapping control 
fields are used. 

6. When using either zoned- decimal data or 
packed-decimal data, the signed fields 
must be either all ASCII or all EBCDIC; 
they must not contain a combination of 
both. 



USER MODIFICATION 



Phases 1, 3, and 4 of the sort/merge 
program provide for the addition of 
user- writ ten routines. Linkage between the 
program and these routines is provided by 
branch- and- link instructions (BAD called 
exits. These exits are: 
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Phase Exit 



11 



12 



13 



31 



32 



Return 
Use Branch 

Check nonstandard B 0(14) 
input labels (tape 
only) or user input 
labels (tape or disk). 

Translate or modify B 0(14) 
input records. 

Process incorrectly B 0(14) 

read records (tape 

only) . 

Bypass incorrectly B 4(14) 

read records (tape 

only ) . 

Create and write B 0(14) 

nonstandard output 

labels (tape only). 

Create user output B 0(14) 

labels (tape or disk). 

After last user label 3 4(14) 

Alter or delete B 0(14) 
records , translate 
data, summarize 
records, shorten or 
lengthen records- 







Insert records. 


B 


4(14) 






After last insertion 


B 


0(14) 


4 


41 


Similar to exit 11, 
but includes mixed 
labels 


B 


0(14) 


4 


42 


Convert data. 


B 


0(14) 


4 


43 


Same use as exit 32. 


B 
B 


0(14) 

or 

4(14) 


4 


44 


Same use as exit 31 


B 
B 


0(14) 

or 

4(14) 


4 


45 


Similar to exit 13, 
bat includes tape and 
disk 


B 
B 


0(14) 

or 
4(14) 



For a detailed description of user exits 
and user routine formats, see IBM 
System/360 Disk Operating System, 
Sort/Merge Program Specif i cat ions , Form 
C24-3444. 



CHECKPOINT, INTERRUPT, AND RESTART 



The checkpoint, interrupt, and restart 
feature permits the user to interrupt the 
sorting process, and conveniently restart 



it, at the end of phase 1 and during phases 
2 and 3. If a job is interrupted during 
the assignment phase or phase 1, the job 
must be restarted from the beginning. The 
feature will not function in a merge-only 
operation. 

The sort program automatically writes a 
checkpoint record on disk during the 
assignment phase and updates it at the end 
of phase 1 and at the beginning of each 
pass in phases 2 and 3. The checkpoint 
record is composed of information required 
to restore the program to the beginning of 
the interrupted pass (the end of phase 1 is 
considered to be the start of phase 2). 

Execution of a restart restores the 
contents of the section of main storage 
recorded at the time of checkpoint, and 
processing is continued from the beginning 
of the interrupted merge pass. 



CHECKING FEATURES 



Two sort/merge checking features are 
included in the program: A record-count 
feature and a sequence- check feature. 

The record -count printout is automatic. 
A count of the records processed will be 
printed on SYSLOG at the end of phases 1, 
3, and 4. In phases 3 and 4, the count 
will not include user insertions or 
deletions. 

A sequence check occurs automatically 
during phases 3 and 4. If a sequence error 
is detected, the system prints a message 
and awaits the operator's instruction to 
continue processing or to cancel the job. 



LABEL PROCESSING 



The sort/merge program processes IBM 
System/360 standard header and trailer 
labels as part of its input/output 
processing. Standard file labels are 
mandatory for disk input/output files; 
non-standard or no labels are permitted 
only with tape files. 

Programmed exits are provided to read 
and check nonstandard tape-input headers 
and trailers, and to compile and write 
non-standard tape-output headers and 
trailers. If the user specifies 
nonstandard tape input labels, but does not 
specify the accompanying exits, the program 
will search for the tape mark that 
separates the labels and the data, thus 
bypassing the nonstandard labels. 
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Unlabeled tape files can be processed by 
the program- The first record read from an 
unlabeled input volume can be either a tape 
mark or a data record. If it is not a tape 
mark, the program will backspace the tape 
to the beginning of the first record- 

A tape mark can be written before the 
first data record , and one will be written 
after the last data record on each output 
volume with nonstandard labels or no 
labels. 

For a complete discussion of label 
processing, see IBM System/360 Disk 
Operating System, Data Management Concepts s 
Form C24-3427, and IBM System/360 Disk 
Operating System, Supervisor and I/O 
Macro s . Form C24-3429. 



SYMBOLIC UNIT ASSIGNMENTS 



Assignment of input/output devices to 
specific channels, if a 2- channel system is 
used, is left to the discretion of the 
user. The sort/merge program does not 
require a particular device on a particular 
channel. The program-required disk work 
area can be composed of a maximum of six 
individual extents. The total number of 
tracks required for a work area (the sum of 
the extents) must not be greater than the 
total number of usable tracks on six disk 
packs. 

Input to a sort or a merge-* only 
operation can be read from multiple disk 
drives, and output can be written on 
multiple disk drives, The input and output 
areas are flexible; multiple extents can be 
specified for each input file and for the 
output file. These I/O areas can be 
arranged around the prog ram- required work 
area, which must be on-line at all times 
during execution. Regardless of the 
arrangement used, the program maximum of 
eight drives must not be exceeded. The 
user is free to assign any symbolic unit 
name to the disk drives used for sorting or 
merging, providing the limitations 
established by the disk-resident control 
program are observed. 

When the system includes tape drives, 
primary and alternate tape drives can be 
specified to eliminate the time required to 
rewind and unload a tape reel and mount a 
new reel either when reading a multi volume 
input file or when writing a multivolume 
output file. For example, if an input file 
is contained on two volumes, the second 
volume can be made ready on the alternate 
drive while reading from the primary drive. 
This facility exists for both sort and 
merge-only operations. 



The program assumes, if tape input is 
specified, that the initial reel of the 
first input file to be sorted or merged 
will be read from the tape unit with the 
symbolic address SYS002, and that the 
alternate input unit will be assigned as 
the alternate unit for SYS002. In the same 
manner, the program assumes that the 
initial volume of the second input file, 
for either a sort or merge-only run, will 
be read from the unit assigned to SYS00 3; 
the alternate unit will be assigned as the 
alternate for SYS003. If tape output is 
specified, the program assumes the output 
file will be written on the unit with the 
symbolic address SYS001. The alternate 
unit, if any, is assigned as the alternate 
for SYS001. 

For a sort operation, the tape units 
with the symbolic addresses SYSOO 2 through 
SYS010 are assumed to contain the initial 
volumes of input files 1 through 9, 
respectively. For example, if two tape 
files are to be sorted, the initial or only 
volumes must reside on SYS002 and SYS003, 
which can be assigned to the same tape 
drive or to different drives. 

For a merge-only operation, the tape 
units with the symbolic addresses SYS002 
through SYS005 are assumed to contain input 
files 1 through 4, respectively. For 
example, if three tape files are to be 
merged, the initial or only volumes must be 
mounted on SYS002, SYS003, and SYS004, 
which must be assigned to different drives 
(initial volumes of all files must be 
on-line) . 

Figure 8 illustrates one example of an 
input/output scheme for a sort or 
merge-only operation. In this example, two 
files can be sorted or merged with a 
minimum of operator intervention by 
utilizing alternate drives. The system 
illustrated uses six tape units, a central 
processing unit, and one or more disk 
drives. The diagram is explained as 
follows: 

1. Two input files, FIXiEA and FILEB, are 
to be sorted or merged. 

2. Each file consists of two volumes. 

3. The initial volumes of FILEA and FILEB 
are mounted, as required, on SYS 002 and 
SYS003, assigned respectively to tape 
units A and C. 

4. The alternates assigned to SYS002 and 
SYS003 (via ASSGN statements) are tape 
units B and D, respectively. 

5. SYS001, the symbolic unit address for 
FILEO, is assigned to tape unit E with 
an alternate unit F. 
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The output file consists of three 
volumes. The first is to be written on 
unit E # the second on unit F, and the 
third on unit E. 



Unit A 



Unit B 




(For merge-only, 
only two 
adjacent tracks 
are required.) 



Figure 8, 



Tape Input/Output Scheme for 
Sort or Merge-Only Operation 



SYSTEM REQUIREMENTS 

The System/360 used to run the sort/merge 
program must have at least: 

* 16K (16,384) bytes of main storage. 
» Standard instruction set. 

• One IBM 2311 Disk Storage Drive 
attached to either one multiplexor 
channel or one selector channel. 
(System residence may require the user 
to have an additional disk storage 
drive for sorting. ) 



One IBM 1403 or 1443 Printer? or one 
IBM 1052 Printer-Keyboard 



One IBM 1442, 2520, or 2540 Card Read 
Punch, IBM 25 01 Card Reader, or IBM 
2400-Series Magnetic Tape Unit (7- or 
9- track) assigned to SYSIPT and SYSRDR. 



One IBM 2400-Series Magnetic Tape Unit, 
if tape input/output is desired. 



The sort/merge program will also operate 
with: 

• A maximum of 51 2K (524,288) bytes of 
main storage. 

• A maximum of eight IBM 2311 Disk 
Storage Drives (including the system 
residence drive) , two to six of which 
can be used for intermediate storage. 

• One to ten IBM 2400-Series Magnetic 
Tape Units (7- or 9- track) for 
input/output to a sort operation. Any 
number of alternate tape units can be 
supported. 

• One to five IBM 2400-Series Magnetic 
Tape Units (7- or 9- track) for 
input/output to a merge operation. Any 
number of alternate tape units can be 
supported. 



The possible combinations of 7- track and 
9-track tapes for the sort operation are: 



Input 
7 
9 



Output 
7 or 9 
7 or 9 



The possible combinations of 7- track and 
9-track tapes for the merge- only operation 
are: 



Input 
7 and/or 9 



Output 
7 or 9 
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ASSIGNMENT PHASE (PHASE 0) - 01 



The assignment phase reads, from SYSIPT, 
the sort /merge control cards prepared by 
the user, The control card statements 
contain file description and necessary 
parameters to perform a specific sort/merge 
operation. 



when processing fixed-length records , 
the field definer (LENGTH) in the 
RECORD control card need only contain 
an entry for LI and not for L2 and 13, 
This is a valid condition and does not 
indicate an error. 



The sort/merge control cards need not be 
loaded into the reader in any specific 
sequence except that the END control card 
must follow the control deck. The control 
information is rearranged in main storage , 
in accordance with the control statement 
sequence code, so that the SORT (or MERGE) 
statement is processed before any of the 
other control statements. 

As the statements are processed, tables 
are built and areas are defined for use in 
succeeding phases. The constants that are 
calculated for a sort/merge run Include: 

• M - order of merge 

• G - size of internal sort sequence 

• B - sort blocking factor 

Internal diagnostics check the format of 
the control statements and the values 
within the tables are cross-checked. 
Values are assumed for certain optional and 
required parameters that may have been 
omitted from the control statements; for 
example: 

• in the SORT statement, an ascending 
order is assumed for a missing sequence 
parameter (Sn). The assumed value is 
flagged as an error, but the assumption 
allows processing to continue to the 
end of the phase. 



• If FILES (an optional parameter) is 

omitted, its value is assumed to be 1. 
Thus, if FILES is omitted, the volume, 
input, and label entries must be 
compatible with FILES =* 1 to avoid 
subsequent errors. 

The user can request that the actual 
control cards as well as a detailed 
description of the given parameters be 
printed on SYSLST. To accomplish this 
optional program feature, the user must 
specify the PRINT option. 

Messages are printed defining the error 
conditions detected by the assignment 
phase, If SYSLOG is a 1052, the user 
operator has the option to either cancel 
the job or to retry after correcting the 
control card errors. If SYSLOG is not a 
1052, the job is automatically canceled. 

When a RESTART run is to be made 
(RESTART runs are not available for 
merge- only operations) , phase 2 is fetched 
at this time. Otherwise, constants for 
either a sort or a merge are written in the 
2311 disk checkpoint area (last four tracks 
of the given FILEW area), and either phase 
1 (for a sort) or phase 4 (for a merge) is 
fetched. 

Figure 9 is a layout of main storage for 
the assignment phase, showing each overlay 
and its respective routines. 
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Overlay 
1 



Supervisor 



Read and Compress 
Control Cards 



< 

U 

u 



> 
< 

U 
U 



Z 
< 



CD 



< 

> 
< 



< 



CCSORT 



Patch 
Area 



-Same as Overlay 1 
I 



SRTSCN, MRGSCN, 
and RCD'SCN 



Patch 
Area 



-Same as Overlay 



INFSCN, OTFSCN, OPTSCN, 
MODSCN, and ENDSCN 



-Same as Overlay ] 
I 



Calculate 
Work Area 



Calculate 
Phase Sizes 



-Same as Overlay 1- 



Calculate LMAX and BMAX 



-Same as Overlay 1 • 



Post- Edit Control Cards 



-Same as Overlay 1 - 



Calculate Constants 



-Same as Overlay 1 ■ 



Timing Routine 



-Same as Overlay 1 - 



10 



PRINT 
Option 



Checkpoint, Restart, or 
End of Assignment 
Phase Routines 



-Same as Overlay 1 - 



Note: Not drawn to scale. 

f ABORT INITWTR 

# J OPERROR DTF [Read Control Cards 
" \ ERROR I Print Messages 

[ RDRTN CPMOD 

P - Patch Area 
Figure 9, Assignment Phase Main-Storage Layout 
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READ AND COMPRESS CONTROL CARDS 



AA 



This routine (overlay 1) is the first 
overlay of the assignment phase; it is used 
to read control cards into storage, check 
their validity, and prepare any error 
messages that may be required- Phase 
tables and other areas used throughout the 
assignment phase are contained in this 
overlay* 



• Print error messages 

• Print control card contents 

• Abort 

The print and abort subroutines are 
initialized for the printing devices and 
for operator response depending on the 
available system features and I/O 
assignments* 



Control cards are read one at a time 
into a read- in area and checked for: 

• User run code 

• Blank in first column 

• Blank control card 

• Valid statement def iners 
» Duplicate definers 

• Definer in correct card position 

• Valid continuation cards 

» PRINT, CALCAREA, and ADDR0UT options 

» END card after reading 25 control 
cards. 

Valid control cards (including their 
continuation cards, if any) are processed 
to include a code at the beginning of the 
card image (to denote SORT, INPFIL, etc*), 
and compressed to eliminate blank columns- 
A slash (/) is placed at the end of the 
card image which is then moved to a save 
area for further processing in subsequent 
overlays. 

The OPTION card is checked for PRINT, 
CALCAREA, and ADDR0UT in this routine and 
the selected bit is set in the phase table- 
Control cards are processed until either 
an END card or the twenty- fifth control 
card has been read- In the former case, 
overlay 2 is fetched; in the latter case, 
if an END card has not been read, an error 
message is printed. 

Other error messages are prepared, 
depending on the type of error (if any) , 
but are not printed at this time. 

This overlay includes some small 
subroutines that will remain in main 
storage and will be used by subsequent 
overlays : 

• Read 1052 replies 

• Write 



DSORT, AA-B1 



The three base registers to be used in this 
overlay are initialized. 

The end of address of the supervisor 
area is calculated and stored- A series of 
tests is then made to determine if SYSLOG 
is a printer and, if so, if it is 
designated for the same device as is 
SYSLST. Switches and indicators are set, 
depending on the result: 

* SYSLOG is not a printer - turn on bit 
#7 in SYSLGBIT to indicate SYSLOG is an 
IBM 1052 Printer-Keyboard 

* SYSLOG is a printer (1403 or 1443) but 
is not equal to SYSLST - activate 
branch at SW14 0343 to use the printer 
as SYSLOG and activate branch at ABORT 
to bypass operator response routine. 

* SYSLOG is the same printer as SYSLST - 
turn on bit #6 in SYSLGBIT to indicate 
SYSLOG = SYSLST, activate branch at 
OPERRSW to print only on SYSLST, and 
activate branch at ABORT to bypass 
operator response routine. 

Other information is then retrieved from 
the communications region and, if 
necessary, the current date is converted to 
MMDDYY format. 

The starting and ending address of the 
message save area (CCS AVE and CCSAVE ♦ 735) 
and the starting address of the card image 
save area (SAVIMAG) are stored in CCSADD, 
CCEND, and CIMAGSV, respectively. 



BEGIN1, AA-C1 

Three registers are initialized for use 
during the scanning of control cards: 

• R7 - Index for control card area 

• R3 - Marker for read-in area address 
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R** - Pointer to end of scan area 



TSTBLK CD, AA-J2 



A test is then made to determine if 25 
control cards have been read. If such is 
the case at this point, an error condition 
exists because no END card has been read; a 
branch is made to ERR**. If the card count 
is less than 25, a bra nch-and- link is then 
made to RDRTN to read a control card into 
location READIN. The routine then 
continues to RUNCODSW. 



As long as blank columns are detected (from 
column 2 on), the routine continues testing 
each succeeding column for a blank. If the 
end of the card is reached, indicating a 
blank card, a branch is made to ERR6. As 
soon as a column that is not blank is 
detected, the card image is moved into the 
save area (from READIN to CIMAGSV) and the 
routine continues to SW. 



ERR6, AA-K2 



ERR4, AA-C4 



Information for the error message at 
location E04 is obtained, and a 
branch-and-link is made to OPERROR to print 
the message. A branch is then made to 
LOAD1. 



A bit is set in indicator E06BKT so that 
message 7D061 will be printed at the end of 
overlay *». A branch is then made to 
BEGIN1+**. 



SW, AA-B2 



RUNCODSW, AA-G1 



This location is initially a no-op and it 
remains so until a run code is given by the 
user (this code is found in columns 73-80 
of the sort/merge statements and is used by 
this phase as an identifier). The code is 
stored at RUNCOD and this no-op is made an 
unconditional branch to COUNTCDS. Until 
such time, the routine tests each card for 
a run code before continuing to COUNTCDS. 

At COUNTCDS, the control card counter 
(CDCOUNT) is increased by one and the 
routine continues to READB to test for a 
blank in the first column. If the first 
column is blank (as it should be), the 
routine continues to TSTBLKCD; if not 
blank, a branch is made to ERR1. 



This location is initially a no-op and is 
made a branch to COL16 only when a 
continuation card is to be processed, as 
determined during the scan of the preceding 
card. When SW is a no-op, a branch is made 
to CKPARA. 



COL16, AA-C2 



If the scan register has not reached column 
16, the columns preceding column 16 are 
tested for blanks. If a non- blank column 
is detected before reaching column 16, the 
card is in error; the branch at SW1 is 
activated (to permit this card to be 
processed) and a branch is made to ERR5. 

When the scan has reached column 16 and 
the column is blank, the card is in error 
and a branch is made to ERRS. If column 16 
is not blank, the card is valid and a 
branch is made to UPMOVE to process it. 



ERRl, AA-J1 



ERRS, AA-E2 



The control card number is converted to 
decimal and inserted in the error message 
at E01. The message is then moved to the 
message save area (CCSAVE) if space 
permits; if not, the message is not moved 
and a branch is made back to BEGINl+4 for 
the next card. If the message is moved to 
CCSAVE, a branch is made to BEGIN1+4 except 
when the card just read is an END card, in 
which case the branch is to LOAD1. 



The control card number is converted to 
decimal and inserted in the error message 
at EOS. The message is then moved to the 
message save area (CCSAVE) if space 
permits. (If the save area is full, the 
message is not moved and the routine 
continues.) The branches at SW1 and BSLASH 
are made no-op's (because it is not yet 
known if the next card is a continuation 
card) and the routine continues to SW1. 
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SWl, AA-F2 



This branch is activated when the 
information on a continuation card begins 
before column 16, In these cases, the 
branch is made to UPMOVE to try to process 
the card* Otherwise, this location is a 
no-op and a branch is made to BEGIN1+4 to 
read the next card. 



1. Location DUPBK is tested for a 

duplication of the definer (it may have 
appeared on a previous card) * If such 
is the case, a branch is made to ERR64. 



If the definer is not a duplicate, the 
appropriate symbol is placed in DUPBK 
(for future testing of duplicate 
definers) and the definer length is 
placed in location SUBTRC. 



CKPARA, AA-A3 



The statement definer code is determined by 
testing for each definer (SORT, MERGE, 
etc.) and when one is found: 



3. The address of the instruction for 

inserting the appropriate definer code 
is placed in register R9; a branch is 
then made to INITST. 

The labels and constants used for the 
various definers are: 





DUPBK 




Length in 


Address in 


Code to be 


Definer 


Symbol 


Byte 


SUBTRC 


Reqister 


R9 


Inserted 


SORT 


S 





5 


INITCS 




1 


MERGE 


M 


1 


6 


INITCM 




2 


RECORD 


R 


2 


7 


INITCR 




3 


INPFIL 


I 


3 


7 


INI TCI 




4 


OUTFIL 





4 


7 


INITCO 




5 


MODS 


E 


5 


5 


INITCE 




6 


OPTION 





6 


7 


INITCP 




7 


EM) 


D 


7 


4 


INITCD 




3 



If none of the listed definers are 
found, a test is made to determine if 25 
cards have been read and if so, a branch is 
made to ERR4; if not, the branch is to 
ERR3. 



ERR64, AA-C3 



INITST, AA-A5 



A test is made to determine if the 
statement definer is in the correct 
position on the card (between columns 2 and 
15). If not, a return switch (ERR3A) is 
set and branch is made to ERR3; upon 
return, the ERR3A switch is turned off and 
a branch is made to the address in register 
R9 (see list at end of text under CKPARA). 



The duplicate statement definer is moved 
into the error message at E64. The message 
is then moved to the message save area 
(CCSAD) if space permits, and a branch is 
made back to BEGIN1+4 for the next card. 
(If the save area is full, the message is 
not moved.) 



When the definer position is valid, a 
branch is made directly to the address in 
register R9. At these locations, the 
definer code that was found is placed in 
the byte immediately to the left of the 
control card image in the save area 
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(CCAREA) and then, depending on the 
definer, one of three branches is made: 

• OPTION definer - to 0PTSC1 

• END definer - to L0AD1 

• All others - to UP MOVE 

ERR3, AA-B5 



The invalid statement definer is moved into 
the error message at E03, The message is 
then moved to the message save area 
(CCSAD), if space permits, and the routine 
continues to ERR3A. (If the save area is 
full, the message is not moved.) 



slash position is saved and the 
compressed card (including the slash) 
is moved to the control card area 
(CCAREA) . 



Continuation column blank and column 71 
blank - Scan from column 71 back, 
decrementing the end-of-scan position 
each time, until the first valid byte 
is found. Then, branch to BYTEl and 
process as described in the preceding 
paragraph. 



Continuation column not blank and 
column 71 not blank - Turn on switch SW 
and branch to BYTE, where the slash </) 
position is saved and the compressed 
card (including the slash) is moved to 
the control card area (CCAREA), 



ERR3A, AA-C5 



This location is a return switch that is 
turned on (unconditional branch) when ERR 3 
is to be entered from INITST. If such is 
the case, a branch is made from this point 
back to that portion of the routine (see 
first paragraph under INITST). 

When ERR3 is entered from CKPARA, this 
switch is off (no-op) and a branch is made 
to BEGIN1+4 for the next card except when 
the card just read is an END card, in which 
case the branch is to LOAD1. 



OPTSC1, AA-F3 



The switch at location OPTSCS is turned on 
(unconditional branch to 0PTSC2) and the 
address of the first byte of the current 
control card is stored, A branch is then 
made to UPMOVE, 



UPHOVE, AA-G3 



* Continuation column not blank but 

column 71 blank - Turn on switch SW and 
test if current card is valid; if not, 
branch to ERRS, If card is valid, scan 
from column 71 back, decrementing the 
end-of-scan position each time, until 
the first valid byte is found. Then, 
branch to BYTE and process as described 
in the preceding paragraph. 

At this point, the current card, if 
valid, has been compressed so that no 
blanks will be included when the card image 
is moved, except for the blank between the 
statement definer and the first field 
definer. 

If the next card is to be a continuation 
card, the switch at BSLASH is a no-op and 
the routine initializes so that the 
information from the next card will be 
moved to CCAREA as a continuation of that 
from the present card, A branch is then 
made to BEGIN1+4 to read in the next card. 

When it has been determined that the 
next card is not a continuation card, the 
scan area is updated and the routine 
continues to OPTSCS. 



The continuation- card switches at SW and 
SW1 are turned off (made no-ops) and, 
depending on the results of several tests, 
the appropriate course of action is taken: 

• Continuation column blank but column 71 
not blank - Branch to BYTEl, where the 
end-of-scan position is incremented by 
one to determine the slash (/) position 
that denotes the end of the card image. 
The slash is then moved so that it is 
immediately to the right of the 
high- order byte of the card image. The 



OPTSCS, AA-J3 



This location is a no-op for all cards 
except the "OPTION" card and, in all such 
cases, a branch is made back to BEGIN 1+4 to 
read in the next card. However, when the 
current card is the "OPTION" card, this 
location would have been made an 
unconditional branch (see 0PTSC1) and the 
routine now branches to 0PTSC2. 
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0PTSC2, AA-K3 



The switch at OPTSCS is turned off and 
tests are made for the PRINT, CALCAREA, and 
ADDROUT options. The corresponding bit in 
table TAGTYPE is set for each option 
specified, and a branch is made back to 
BEGIN1+4 to read in the next card. 



After the contents of a particular card 
are printed, a branch is made to OPERROR to 
print the first error message* Subsequent 
entries for the same card branch directly 
to OPERROR* 



OPERROR, AA-J4 



LOADl, AA-E5 



The control card image area (CIMAGSV) is 
closed by inserting a hexadecimal W EF W at 
the end of the last card image in the area. 
The current message save area address 
(CCS ADD) is then checked to determine if it 
is at the upper limit (CCEND). If CCS ADD 
is less than CCEND, a hexadecimal M FF W is 
inserted at the end of the last message in 
the area; if CCSADD is equal to or greater 
than CCEND, the FF indicator is not 
required. A branch is then made to FETCH. 



FETCH, AA-F5 



This location contains an expansion of the 
FETCH macro; it is used to fetch the next 
required overlay as determined at different 
points throughout the assignment phase 
overlays 1 through 9. The number of the 
overlay to be fetched (2 through 10) is 
inserted in the operand for the macro 
before branching to this location. 

At the end of overlay 1, therefore, 
overlay 2 (Chart AB) is fetched for 
execution. 



CCERR, AA-G4 



This location is entered from overlays 2, 
3, and 4 of the assignment phase and is 
used to print the entire compressed 
contents of a particular control card only 
when the first error in that card is 
detected. This is done so that if the 
error indication was caused by a keypunch 
error, it may be corrected by the operator 
before canceling the job. Subsequent 
errors in the same card will cause only an 
error message to be printed, but not the 
entire card. 

The term "card" in the preceding 
paragraph means a logical card, which 
includes continuation cards, if any, for a 
statement. Provision is made for printing 
longer logical cards 80 bytes at a time. 



This location is entered from ERR 4 and 
ABORT in this overlay and from several 
points in other overlays (either directly 
or through CCERR) - The entries are made 
via a branch -and- link with link register 
RA. 

If SYSLOG and SYSLST are assigned to the 
same printer, a branch is made back to the 
address in link register RA where a 
branch- and- link to ERROR will be found; 
messages will thus be printed on SYSLST 
only. However, if SYSLOG is not the same 
printer as SYSLST, a branch is made to 
PRT140 3 and the messages are printed on 
both SYSLOG and SYSLST. 

If SYSLOG is an IBM 1052 
Printer-Keyboard, the message is typed out 
and a branch is made back to the address in 
link register RA where a branch-and-link to 
ERROR will be found- The messages are then 
printed on the SYSLST printer. 

In all cases, after the messages are 
printed the program returns to the address 
in the link register RA to continue 
processing. 



ABORT, AA-H5 



This location was initialized at the start 
of overlay 1 to permit operator response 
for RETRY or CANCEL only if SYSLOG is a 
1052 and if SYSIPT and SYSRDR are not 
tapes. 

ABORT is entered from overlay 4 (Chart 
AE) when there is an error of a type that 
will not permit the assignment phase to 
continue processing beyond that point. If 
operator response is permitted, the message 
at location E90 is printed via a 
branch-and-link to OPERROR. The operator 
may then cancel the job or correct the 
error and retry. In the former case, a 
CANCEL macro is issued; in the latter, the 
program returns to the start of overlay 1 
after the job cards and sort cards have 
been placed in SYSRDR and SYSIPT, 
respectively. 

If a retry is not permitted because of 
the restrictions mentioned, the message at 
E9 2 is printed and the job is canceled. 
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CCAREA 



N P 



X X 



/ 



^^ 




V 




CCSAVE S OR T 




X I / 



I N P F I 



X X 



AA - 2-byte address of the, compressed control card in CCSAVE. 
B - total number of bytes (excluding code) in compressed control card. 
C - code indicating type of card. 



1 - SORT 5-OUTFIL 

2 - MERGE 6 - MODS 

3 - RECORD 7 - OPTION 

4 - INPFIL 8 - END 



Figure 10. Sort Compressed Control Cards 



SORT COMPRESSED CONTROL CARDS 



AB 



This routine (overlay 2) initializes TBLADD 
and CCSAVE so that each logical control 
card can be found and scanned by its 
respective overlay for errors and 
extraction of information. Hie order in 
which the codes are placed in the table 
(TBLADD) and in the area (CCSAVE) 
is: 1-SORT, 2-MERGE, 3 -RECORD, 4-INPFIL, 
5-0UTFIL, 6-M0DS, 7-OPTION, 8-END. Refer 
to Figure 10. 



DSORT002, AB-B1 



The base register is initialized and the 
stacked message from overlay 1 is printed. 
The routine then continues to CCSO. 



CCSO, AB-D2 



CCAREA is scanned until a 1 code is 
reached, then a 2 code f and so on. When a 
valid code is read in its proper order and 



there is no error, control is passed to 
MOVECC. Control cards are checked for 
invalid codes and missing mandatory codes. 
Overlay 3 is fetched when the END card code 
is reached. 



MOVECC, AB-D3 



If a code is found, the respective area in 
the table at location TBLADD is updated 
with the code and length of the logical 
card. The card is moved to the area 
labeled CCSAVE, and its starting address is 
placed in TBLADD. The code search register 
is incremented to search for the next 
seguential respective code in CCAREA. 
Control is returned to the CCSO routine at 
label CCS2, until all cards have been 
scanned. 
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SCAN SORT, MERGE, AND RECORD CONTROL CARDS SRT1 , AC-B3 

- AC 



This routine (overlay 3) scans the 
compressed control cards for the statement 
definer of each card. As the statement 
definer is read, the appropriate overlay 
for that card is determined. The statement 
definer s and their overlays are: 

• SORT* MERGE, and RECORD — overlay 3 

• INPFIL, OUTFIL, MODS, OPTION, and END 
— overlay 4 

If it is determined that a SORT or MERGE 
card is present, overlay 3 continues and 
scans the control card for values and 
errors. The values are placed in the phase 
tables starting at the label FORMAT. 
Insertions are made for missing parameters 
(either required or optional) and errors 
are explained by messages. When the card 
has been completely scanned, control is 
returned to the initial scan routine of 
overlay 1, which determines the next 
overlay to be fetched. 

When the appropriate overlay has been 
fetched, the next control card is scanned. 
Overlays 3 and 4 do not overlay the initial 
scan routine of overlay 1. 

After all control cards have been 
scanned, no errors detected, and the table 
built, overlay 5 is fetched. 



DSORT003, AC-B2 



Registers are initialized to scan the 
CCS AVE area for a control card and to call 
in the corresponding overlay. The routine 
then continues at SR TSCN. 



SRTSCN, AC-C2 



The address of the first sorted control 
card is retrieved from TBLADD and stored in 
MSGADD. A test is made to determine if the 
card designates a sort or a merge. If a 
merge, a branch is made to MRGSCN; if a 
sort, the sort indicator (S- character) is 
set in MANDBK, and the index register is 
initialized with the control field length 
minus one (CF1LNG) . A test is made to 
determine that the proper format for the 
control card has been used. If an error is 
detected, a branch is made to ERR1 to 
execute the corresponding error routine. 
If no error is detected, the routine 
continues at SRT1 to scan the control card. 



Scanning of the control card is continued 
one byte at a time until a complete 
statement, SORT or MERGE, has been scanned 
(a slash followed by a hex 61 indicates end 
of a statement) . A comparison is made 
between the field definer and the 
dictionary of field definers located at 
CKFLDS. When a valid definer is found, the 
program branches to the respective routine, 
which extracts the values for that definer 
and places them in the phase table. The 
routines are: 

• FLD - field definer 

• FILRTN - order of merge for merge-only; 
or number of files for sort 

• FMAT - format definer 

• FILSZE - size definer 

If a valid field definer is not found, 
the program branches to ERR2 to print the 
appropriate error message. 

FLD: The FIELD definer is bypassed, and a 
check is made for the left delimiter. The 
values for each control field are 
extracted, converted to useable form, and 
placed in the phase table. For example, if 
there is only one control field, the code 
placed in the phase table is 0080 if 
ascending, or 00E0 if descending sequence. 
However, if there is more than one control 
field, the code for ascending sequence in 
the first field is 0000, and 0080 in the 
last field, if it is designated ascending. 
For descending sequence, the first field is 
0060, and the last field, if descending, is 
00E0. Further checks are made for the 
position and the length of a field. A 
missing sequence value is assumed to be 
ascending and an error message is printed 
to indicate that the sequence value was not 
given. 

A maximum of 12 control fields can be 
specified with this format. The total 
length of all control fields must not 
exceed 256 bytes. 

FILRTN : The number of user-given files is 
extracted from the control card and 
converted to binary. The binary number is 
stored at FILES and, in addition, is used 
as the order- of- merge for a merge-only run. 
If FILES is left out of the control card, 
the program assumes the number of files to 
be 1 for either a sort or a merge. 

Note : Errors may be encountered later in 
the phase and messages will be 
printed if FILES is not given and 
assumed to be 1. For example: 
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FILES GIVEN EQUAL TO 1, AND INPUT 
EQUALS T,D,T 

If a sort, no errors would be detected 
because the input could then be only disk 
or tape, but not a combination of the two. 

FMAT : The field definer is bypassed, the 
type of format is determined, and the 
appropriate bit is set ON in the phase 
table at FORMAT* The user's original code 
is saved for use with the PRINT option at 
FMATBK, if specified- The format codes 
are: 

• FL - floating point 

• BI - binary 

• FI - fixed point 

» PD - packed decimal 

• ZD - zoned decimal 

FILSZE: The field definer is bypassed and 
the user-given file size is stored in the 
phase table at FILES Z. Size is required 
for a sort, but not used for a merge. The 
sort operates at greater efficiency even if 
the size entry is only an estimate; 
however, the estimated size entry must be 
equal to or greater than the actual file 
size. Otherwise, the work area calculated 
would be incorrect and an error message 
will be printed. 

When the end of the control card is 
reached, control is returned to this 
routine at SCAN. 



SCAN, AC-C4 



If the card is a MERGE or RECORD control 
card, a branch is made to MRGSCN or RCDSCN, 
respectively, in this overlay. For control 
cards other than SORT, MERGE or RECORD, 
overlay 4 is fetched. 

If, for example, an OUTFIL card is 
detected in CCSAVE, the overlay number 
(byte 19) is checked to assure that the 
required overlay is in main storage. 
Because both INPFIL and OUTFIL use the same 
overlay, overlay 4 will be in main storage 
when the OUTFIL card is detected. 



card in TBLADD, the merge indicator 
(M-character) is placed in MANDBK+1 and a 
branch is made to SRT1. If there is not a 
MERGE card, the branch is to RCDSCN. An 
error is detected if both merge and sort 
are specified for the same run or if 
neither is specified. In either of these 
cases of error, control is given to the 
operator (if SYSLOG is a 1052) or the job 
is terminated. 



RCDSCN, AC-F2 



General registers, the index register, and 
the return switch are initialized and the 
error switch is reset to OFF. The routine 
then continues at COMP. 



MRGSCN, AC-D2 



Registers are loaded with the MERGE control 
card location in CF1LNG and TBLADD, and the 
card code is tested. If there is a MERGE 



COMP, AC-G2 



Control cards are scanned until RECORD card 
code is found. The RECORD indicator 
(R-character) is placed in MANDBK+2. The 
address of the RECORD control card (in 
TABLADD) is stored in MSGADD and a branch 
is made to RC1. 



RC1, AC-H2 



The field definer is located and a branch 
is made to the respective routine: 

♦ CKTYPE — to scan the type definer for 
F or B (fixed- or variable- length 
records). 

* CKLENG — to scan the "length" definer. 



When a comma follows the first field 
definer set of values, the next definer 
will be processed. A branch is made back 
to BEGIN2 to scan the next control card. 
If errors are detected the program branches 
to the CCERR routine which is described in 
overlay 1. 

CKTYPE: This routine turns on the 
appropriate bit in the phase table for 
fixed- or variable- length records- 

RECTYP: Fixed- length records are assumed 
if no value is found for record type, but 
an error condition results. If blocking is 
variable, the assumption is changed to 
variable- length in a later overlay and an 
error indication is again given. 
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CKLENG: This routine stores the I/O record 
lengths in the phase table at INTPRL. If 
only the LI value is given, a branch is 
made to the routine beginning at label 
ASSUM1 to assume a value for L3 (for 
fixed- length records) or for L3, L4 and L5 
(for variable-length records). This 
function is not applicable to ADDROUT or 
merge runs. L2 is not used by the 
sort/merge program. An error condition 
results if no value is given for LI or if 
the wrong value assumption is forced for L3 
thru L5. 

Control is returned to SCAN when the end 
of a card is detected. 



SCAN INPFIL, OUTFIL, MODS, OPTION AND END 
CONTROL CARDS - AD, AE 



Overlay 4 is fetched to scan: 

• INPFIL card 

• OUTFIL card 

• MODS card 

• OPTION card 

• END card 

DSORT00 4, AD-Bl 



Registers are initialized and the error 
switch is reset to OFF. 



INFSCN, AD-Cl 



The INPFIL indicator (I-character) is 
placed in MANDBK+3 and MSGADD is updated 
with the address of the INPFIL card (from 
TBLADD) for use in case of error 
conditions. A branch is then made to INF1« 



INF1, AD-G1 



This routine is initialized to accept 
either an INPFIL or OUTFIL control card. 
The program locates the field definer and 
branches to the respective routine. For an 
INPFIL card, the routines are: 

• BLOCKI — block size 

• XSCAN — block type 



• V0L1 — volume 

• CKINPT — input media 

• CKOPEN — I/O open file routine 

• CLIFLE — I/O close file routine 

• BYPASS — bypass unreadable records 
(tape input for sort, tape or disk 
input for merge) 

BLOCKI : A check is made to determine 
whether an INPFIL or OUTFIL card is 
present. If it is an INPFIL card and it 
has no delimiters, Variable blocking is 
assumed. The input block size value is 
placed in the phase table at BLKSIZ. 



XSCAN: The value (X) for fixed-length 
blocks is extracted and an indicator is 
initialized at BLKSIZ* 3. The program 
assumes variable- length blocks if there is 
no second value in BLKSIZE. The 
appropriate bit is turned on in BLKSIZ+3, 
and an information message is given to the 
operator if the print option is specified. 

V0L1: Scans for volume value (tape only). 
For a sort run, up to nine volume entries 
are allowed and are placed in bytes 
through 8 of MRGV0L. Any entries over the 
maximum will cause an error condition. For 
merge-only, a maximum of four entries is 
allowed: FILEA, FILEB, FILEC, and FILED 
(bytes through 3 respectively) - 

CKINPT: The input media specified by the 
user is extracted and the appropriate bit 
is set in INPUTMRG+1 for a sort, or in 
INPUTMRG+1 through INPUTMRG+4 for a merge. 

CKOPEN: The tape -file open options are 
extracted and the appropriate bit for input 
is set in BLKSIZ+3. 

CLIFLE : The tape- file- input CLOSE options 
are extracted and the appropriate bit is 
set in BLKSIZ +3. 

If any errors are detected, control is 
passed to CCERR in overlay 1. At the end 
of the card, control is returned to SCAN. 

For a OUTFIL card, INF1 is initialized 
to handle output file card routines: 

* BLOCKO — output block size 

• COPENO — output open option 

» CLOFILE — output close option 

* CKOUT — output device 

• CKNOTPMK — NOTPMK option (tape output) 
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BLQCKO: The BLOCKI routine is initialized 
to extract output block size and place it, 
in binary form, in BLKSOZ. 

COPENQ: The tape- file- out put options are 
extracted and the appropriate bit is set in 
RECTYP+1. 

CLOFLE: The tape- file-output CLOSE options 
are extracted and the appropriate bit is 
set in RECTYP+1. 

CKQUT: The output media specified by the 
user is extracted and the appropriate bit 
is set in INPUTMRG. 



CKFID4, AD-C5 



Field definer PH4 is used only on a merge 
run. Values are placed in phase table 
PHASE34. 

Each field definer is checked for name, 
address and exit value by routines labeled 
CKNAME, MVADDR, MVEXIT. If any errors are 
detected, control is passed to CCERR in 
overlay 1* A branch is made to SCAN when 
the end of the card is reached. 



If any errors are detected, control is 
passed to CCERR in overlay 1. At the end 
of a card, control is returned to SCAN. 



OPTSCN, AE-B1 



OTFSCN, AD-D2 



MSGADD is updated with the address of the 
0UTFIL control card (from TBLADD) for use 
in case of error conditions. A branch is 
then made to INFl. 



MSGADD is updated with the address of the 
OPTION card (from TBLADD) for use in case 
of error conditions. The option code is 
placed in MANDBK and a branch is made to 
CKDEFS. If there is no option card, the 
branch is to ENDSCN. 



CKDEFS, AE-E1 



MODSCN, AD-C3 



MSGADD is updated with the address of the 
MODS control card (from TBLADD) for use in 
case of error conditions. The routine 
continues at MODI. 



MODI, AD-G3 

Field definers are located and a branch is 
made to the respective routines: 

• CKFID1 — phase 1 and 3 user routines 
names, length, and exits used. 

» CKFLD4 — phase 4 user routines names, 
length, and exits used. 



The field definers are located and the 
corresponding bits are set in the phase 
table: 



i 



Constant 
Label 



T 



— T - 



| RESTAT 

| STORAG 

J VERFY 

| PRINT2 

J CALCAR 

J ADDROT 

| LABEL 

I CKKEY 



Bit (Option | 

RESTAR (RESTART | 

(value) (STORAGE | 

VERIFY (VERIFY | 

PRINT | PRINT | 

C ALCAREA j CALCAREA | 

RAF (ADDROUT | 
I NPUTMRG- INPUTMRG* 4 | LABEL | 

(value) (KEYLEN | 






Note : PRINT, CALCAREA, and ADDROUT options 
have been processed by overlay 1. 
STORAGE and KEYLEN definers make use 
of count routines to count number of 
bytes. LABEL option assumes 
standard input and output labels if 
not specified. This option must be 
compatible with the type of input. 



CKFLD1, AD-D** 



ENDSCN, AE-D2 



If phase 1 or phase 3 field definers are 
present, the address of the appropriate 
phase table, PHASE1 — PHAS34, is 
initialized. For a sort run, PHAS34 is 
used for phase 3. For a merge, PHAS34 is 
used for phase 4. 



If no errors are detected in this overlay, 
the END card causes the end card code 
(D-character) to be placed in MANDBK+7, 
overlay 5 is fetched, and the program 
continues at DSORT005. 
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If any errors are detected, the program 
may not be able to continue, depending on 
the type of error- In such cases, a branch 
is made to ABORT (Chart AA) ; otherwise, 
overlay 10 is fetched. 



OPEN WORK AREA AND PRE-EDIT - AF f AG 



Overlay 5 builds a table of the work area 
extents for use in phases 1 , 2 , and 3 , 
unless the CALCAREA option has been 
specified, in which case the building of 
the table is bypassed and the program 
continues directly to calculate the phase 
sizes. 

XTENT cards are set up, giving the unit, 
class, number, and location of the areas 
that are allocated for the user work area. 
The information from the cards is extracted 
from the supervisor program, and stored in 
XTAREA when FILEW DTFPH is opened. The 
total available tracks for the work area, 
computed using the limits given in the 
XTENT cards, need not be a single 
continuous extent, but can be a maximum of 
six separate areas. 

Three tracks are subtracted from the 
total available work area to be used for 
checkpoint records. The remaining tracks 
are equally divided into two work areas and 
each is designated as tracks required (TR). 
If the original number of available tracks 
was even, a total of four tracks is 
subtracted even though only three tracks 
are required for checkpointing. 

The work area table, labeled TABLEB, is 
divided into up to seven sections, which 



will be contained within the two half work 
areas. Either half of the work area will 
contain at least one but not more than six 
of the sections. For example, if the first 
half work area consists of four sections, 
then the second half work area could 
consist of only three. 

The number of tracks available (TA) in 
the first XTENT card is compared to the 
tracks required (TR) for half the work 
area. The result is one of two conditions: 

• TA>TR — TA equal to or greater than TR 

• TA<TR — TA less than TR. 

(TA£TR) if TA (tracks available) in the 
extent limits is equal to or greater than 
TR (tracks required), the lower limits of 
the XTENT card are placed into the lower 
limit area of section 1 of TABLEB. The 
upper limit is computed using TR. Tracks 
left over from this extent are used with 
the TR of the second half work area (Figure 
11). 

(TA<TR) If TA (tracks available) in the 



first extent card is less than the tracks 
required, the lower and upper limits of the 
first card are placed into the first 
section of the work area table. The tracks 
available in the next extent card are 
obtained and added to the tracks available 
from the first card. The lower limit of 
the second card is placed into the lower 
limit area of the next section. If the 
combined TA is greater or equal to TR, the 
upper limit of the second section is now 
computed* These two sections make up the 
first- half work area. Any remaining tracks 
are used with the second- half work area 
(Figure 12). 
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TABLEB 



Total Tracks =29-3 Check Point Tracks = 26. 
1/2 Work Area = 13 Tracks (TR) 



Section 1 (1/2 WK) 
Section 1 (1/2 WK) 
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• 29 Tracks 
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Note: 6031 is CKPT Address 
*The upper limit track address is not used by the section. 

Figure 11. Work Area Table (2 Sections) 
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Total Tracks = 32 -4 Checkpoint Tracks = 28 
1/2 Work Area = 14 Tracks (TR) 
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Note 8051 is CKPT 



Figure 12. Work Area Table (5 Sections) 



Note: In Figure 12, the upper limit of the 
XTENT card is included as part of 
the area required by that extent. 
The upper limit shown for Section 1 
of TABLEB, for example, indicates 
the start of the next disk area and 
is not part of the work area Section 
1. It is given only to illustrate 
the calculation. 

The second-half work area is built in 
the same manner as the first-half work 
area. 

With the work area table completed, the 
LOGWKA table is set up. This table 
contains addresses of the pointers, or 
bytes, indicating the first section of each 
half- work area. 

Four tracks are left over from the total 
available tracks for checkpoint records 
(Figure 12). The upper limit of the final 
section in the second-half work area is the 
starting point for the checkpoint records. 



DSORT005, AF-B1 



CLEM?:, AF-C1 

One of three courses of action is taken, 
depending on the type of run: 

• CALCAREA option - the processing for 

building the table of work area extents 
is bypassed by a branch to FIRSTED 
(Chart AG). 



MERGE - a branch is made to &GINIT. 

SORT - general register U is 
initialized to read a maximum of six 
extents and a branch is made to OPEN. 



MGINIT, AF-D2 



General register 4 is initialized to read 
one XTENT during file opening and a branch 
is made to OPEN. 



The base registers are initialized and a 
branch is made to CLEAR. 

Note : After base registers are 

initialized, the area from IBV005 to 
H5 (overlay number) is reserved for 
IOCS as a work area for the open 
routines (256 bytes). 



OPTO, AF-F1 



The work area file (FILEW) is opened and 
IOCS returns control at READX. 
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READX, AF-G1 



READ XT, AF-B3 



A test is made to determine whether it is a 
sort or a merge run* For a merge, a branch 
is made to MRGOPN; for a sort, a 
branch- and- link is made to SORTXT. In both 
cases , the routine then resumes at READXl. 



MRGOPN, AF-G2 



The first 12 bytes of each XTENT are moved 
to the assignment phase extent work area, 
XTENT* When FILEW was opened and each 
extent originally fetched, a W was placed 
in byte of XTENT. A test is now made for 
the W in each extent. If found, the extent 
is repositioned for easier handling by the 
assignment phase. A branch is then made to 
SI1-4. 



MRGSW is turned on (unconditional branch) 
to allow analysis of only one XTENT; a 
branch is then made to READXl. 



SORTXT, AF-H1 



Extents are sorted by sequence and stored 
in XT AREA; a branch is then made to READ XI- 



When no w is found, all the extents have 
been processed; a branch is made to SAVEWK 
to determine if at least four tracks were 
given for the last XTENT. If not, a branch 
is made to ER30 75 to execute the required 
error routine. If at least four tracks 
were given, the total number of tracks 
given is placed in TRACK, from which 3 is 
subtracted (for checkpoint tracks). The 
routine then continues at METH1I. 



Note: XTENTs may be given out of sequence 
as long as the symbolic assignments 
are in sequence. This feature makes 
possible the optimum placement of 
the work area for a faster sort. 
FILEW XTENTs must follow these rules 
if more than one extent is given: 

1. XTENT cards must be in sequence by 
symbolic unit assignment. For example: 

XTENT1 003 — SYS005 
002 — SYS 00 6 
004 — SYS007 
001 — SYS008 

2. Symbolic units must be assigned to 
unique devices. For example, SYS005 
cannot be the same unit as SYS 008, etc. 

3. XTENTs may be out of sequence by extent 
sequence number as in item 1 (003, 002, 
004, 001). This allows for optimum 
placement of work area sections for a 
faster sort time. The assignment phase 
will sort the given XTENTs by sequence 
number and the work area will be placed 
as the user designates according to the 
sequence numbers. For example, in the 
illustration in item 1 the first XTENT 
used to build the work area will be 
symbolic SYS008, followed by SYS006, 
SYS005, and SYS007, in that order. The 
checkpoint will reside on the device 
assigned to SYS007. 



READXl, AF-K1 



SIl-4, AF-C3 



The lower and upper limit information is 
extracted and converted to tracks. The 
difference between the lower and upper 
limits determines how many tracks are 
available in the current extent; this 
number is placed in XTAREA position. The 
total number of tracks given by user 
(TRACKS) is updated. After all FILEW 
extents have heen processed, a branch is 
made to MRGCKP for a merge or to SAVEWK for 
a sort. 

Note : For a merge run, the switch at MRGSW 
is on (unconditional branch) and the 
program would have branched to 
MRGCKP after processing one FILEW 
extent. 



Index registers are initialized. 



METH1I, AF-F3 



After initializing registers and constants 
with extent information, the size of half 
work area is calculated and saved in 
HALFTK. TA ( current extent card) is then 
compared to TR (tracks required in half 
work area.) If TA>TR, a branch is made to 
INT1; otherwise, the branch is to INIT2. 



INIT1, AF-H3 



The section counter (SECCTR) is reset to 
indicate the first section of a logical 
half work area, the lower limit is placed 
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in TABLEB, and the number of current: tracks 
available that are to be used for the 
section is determined* 

Note : If TA is greater than TR, TR is 

added to the lower limit to compute 
the upper limit of this logical half 
work area. 

Excess TA tracks are saved for a section 
of the next logical half work area. If the 
last section was just computed, the first 
excess track is saved for the first 
checkpoint record. The upper limit is then 
placed in TABLEB, 

If it is not the last half work area, a 
branch is made to INITA1. 

If there are no excess tracks <TA ~ TR) , 
a branch-and-link is made to GETXTN, to get 
the next extent card information for the 
start of second-half work area, before 
branching to INITA1, 



INIT2. The program then branches to EXIT, 
where the displacement pointers of TABLEB 
are scanned to determine the beginning of 
each logical half work area. The 
displacement values are reset to their 
original values and placed in LOGWKA. 
Zeros, used to close pointers, are inserted 
in the displacement pointer immediately 
following the last displacement pointer in 
the last section of the second-half work 
area table initialized (TABLEB), A branch 
is then made to SAVGKP, This signals 
phases 2 and 3 that the end of one half of 
the work area has been reached and forces 
processing of the other half. For example: 

0000 - first half pointer 
000C - second half pointer 
0000 - end of table 



Phase 2 fills the first half (0000), the 
next pass filjjs the second half (000C), 
The next pass detects 0000, which points 
back to the first half. The process is 
repeated until all passes are complete. 



INITA1, AF-K3 



Registers and constants are initialized to 
build the next section of the first logical 
work area, or a section of the second half 
logical work area, with TA (tracks 
available) remaining from the current 
extent card. If the remaining TA is less 
than TR, a branch is made to INIT2; if it 
is equal to or greater than TR, the branch 
is to INIT1+4, 



SAVCKP, AF-E5 



The checkpoint disk track is computed using 
the upper limit of the last section used in 
the work area, and is saved in DOUBLE +2 6 
for SYMBOLUNIT displacement and in 
DOUBLE* 28 for CHHR, A branch is then made 
to FIRSTED (Chart AG). 



INIT2, AF-G4 



MRGCKP, AF-D4 



If TA is less than TR, the lower and upper 
limits are placed in the section of the 
current logical half work area. The next 
extent card information is obtained and the 
TA from this extent is added to the TA of 
the last extent, If the current TA is 
equal to or greater than TR, the upper 
limit is calculated and placed in the 
section of the current logical half work 
area, If the current TA is less than TR, a 
branch is made to INIT2 for the next 
section of this logical ha If work area. If 
the current TA is greater than TR, a branch 
is made to INIT1+4, 



EXIT, AF-B5 



A v test is made to determine if at least two 
tracks were given for checkpoint for a 
merge. If not, an error condition results. 
If two or more tracks are given, the merge 
checkpoint disk address is calculated and a 
branch is made to FIRSTED (Chart AG), 



OPEN WORK AREA AND PRE-EDIT 
AG 



(CONTINUED) - 



Constants from sort control cards, to be 
used in the calculation of phase sizes, are 
edited. After checking that these 
constants are included, the information 
needed for phase size calculation is 
retrieved and processed. Some of the 
information is: 



When it is determined that the work area is 
completely built, switches END1, END2, and 
END3 are initialized to exit from INIT1 or 



Format (Floating point, unsigned 
binary, fixed point, packed decimal, or 
zoned decimal). 
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Fields (control data specification). 

Length ( record) * 

Block size (input and output). 

Block type (fixed or variable). 

Record type (fixed-length or 
variable-length) . 

Type of run (sort or merge). 

Type of input and output (disk or tape 
or mixed). 

OM for merge and FILES for sort. 



Each phase size is computed as 
determined by the factors in the control 
cards, such as the record type 
(variable-length, fixed-length., ADDROUT) , 
format, number of control fields, etc. 
After all phase sizes are calculated, they 
are stored in their respective 
constants: PHS1, PHS2 , and PHS34 (phase 3 
for sort or phase 4 for merge). Maximum 
sizes for phases 2 and 3 are calculated and 
stored in PH2MX and PH34MX, respectively. 
The length of the user area is computed, 
and the result is saved in LEN1 for phase 1 
and in LEN34 for phases 3 or 4. 

Phase 4 is computed for a merge-only 
run. 

Formulas not explained in the following 
text are in IBM System/360 Disk Operating 
System Sort/Merge Program Specifications , 
Form C24-3444, unless otherwise stated. 



• Output block size (CKBKO) - check if 
output block size was given. 

• Number of control fields (CF) - check 
if FIELDS was given. 

• Block type (RT1) - if FILES=1, check to 
determine if block type was specified. 
If FILES>1, assume variable blocking 
internally for sort. If block type was 
not specified, variable blocking is 
assumed. 

• Input and output device (CKOMED) - 
determine if input and output device 
type was specified. 

• L4, minimum number of bytes in a single 
logical input record for 

variable- length records (RCT) - if 
record type is variable and ADDROUT was 
not specified, check to determine if LI 
is less than L5. 

• Maximum internal OM for sort (BLK) - 
check for specification of fixed 
blocking of variable-length records. 

• Validity of FILES (OMVAL) - check for 
validity of number of files for sort 
(maximum of 9) or for merge (maximum of 
4). 

If no errors are detected in the 
foregoing checks, the routine continues at 
CORVAL. If any errors are detected, the 
program branches to the appropriate error 
routine. (See program listing for specific 
error routine used. ) 



FIRSTED, AG-B1 



Information used in phase size calculations 
is edited and tested to ensure that all 
mandatory information has been given. Any 
mandatory information missing results in an 
error condition. Items checked are: 

• Validity of L5 for sort of 
variable-length records (FIRSTED) - if 
records are variable- length and ADDROUT 
is not specified, a test is made to 
determine if average record length was 
given and is valid. L5 must be equal 
to or less than LI. 

» Format code (FMAT) - check if format 
was given in sort or merge control 
statement. 

• Record length (CLANDB) - check if 
length was given. 

• Input block size (CKBK) - check if 
input block size was given. 



CORVAL, AG-E1 



CORESZ is checked for zeros. If zero, no 
storage entry was specified and the actual 
machine size, retrieved from the 
communications region, is used. In either 
case, tests are made to determine that the 
size is between 16,384 and 524,288 bytes. 
If less than 16, 384, an error condition 
results. If more than 524,288, an 
information message is printed. Only a 
sort run utilizes 524,288 bytes. 

Starting at the label BLK, the maximum 
internal order of merge is calculated for a 
sort run: 

* Variable-length records - 16K = 6 way 

OM 

• Fixed-length records or ADDROUT - 16K = 
7 way OM 

The routine then continues at P1SIZE. 
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For a merge run, the OM initialization 
is bypassed by a branch to BLK2, 



P1SIZE, AG-Gl 



Registers are loaded with phase 1 table 
address and basic phase 1 size. 

Note : Figure 13 contains the basic sizes 
for all phases, as well as the 
formulas for calculating sizes for 
the several types of runs with 
either fixed- or variable- length 
records. 



BLK2, AG-F2 



Phase 4 size (PHS4) is placed in PHS34, 
phase 4 switch (P4NAMS) is turned on 
(unconditional branch) , and a branch is 
made to P4NAM, 



STDFV, AG-K1 

The calculations for phase 1 size are 
completed using separate routines for: 

• Variable-length records with ADDROUT 

• Variable-length records without ADDROUT 

• Fixed-length records with ADDROUT 

• Fixed- length records without ADDROUT 

P2SIZE, AG- A3 



Phase 2 size (see Figure 13) is calculated 
for the type of record used. 



P3SIZE, AG-B3 



Phase 3 size (see Figure 13) is calculated 
for type of record used and the routine 
branches to USESTR. 



P4NAM, AG-H1 



USESTO, AG-C3 



Values N and M are calculated for phases 1, 
2, and 3: 

• N = number of control fields times ten, 

• M = 6<Ll/256) for phases 1 and 2; 
6(L3/256) for phase 3, 

For a merge-only run, a branch is now made 
to PHSIZ; for a sort run, the routine 
continues at STDFV, 



The length of the user area in phase 1 
(LEND and in phases 3 and 4 (LEN34) are 
calculated, if not given by the user, 

• LEN1 = CORESZ - ADD1 (Rounded to next 
higher double word boundary, ) 

• LEN34 = CORESZ - ADD34 (Rounded to next 
higher double word boundary,) 

The user address is checked to be sure 
it is less than CORESZ. 



P4SIZ, AG- J 2 



Phase 4 size (PHS34) is adjusted with M and 
N, The conversion routine lengths are 
reinitialized for a merge-only run, and a 
branch is made to USESTR, 



CF256, AG-D3 



The total length of all control fields is 
calculated, checked for validity, and saved 
in TLACFD, 



40 IBM S/360 DOS Sort/Merge 



Phase 1 BASIC =2744 Phase 2 BASIC = 1526 
Phase 3 BASIC = 1426 Phase 4 BASIC = 2238 



N = No. of control fields 

M = (L/256) L = LI (phases 1 and 2), L3 (phase 3) 

CFADD = 84 when N > 1 (SORT) CFADDM = 66 when N > 1 (MERGE) 



PHASE 1 


Fixed W/O ADDROUT = BASIC + ION + 6M + DC + Q 

Fixed W/ ADDROUT = BASIC - TAGDIF + ION + 6M + DC + Q] 

Variable W/O ADDROUT = BASIC + ION + DC + Q 
Variable W/ ADDROUT = BASIC - TAGDIF + ION + DC + Q 1 




DC = 


Fl 


FL 


ZD 


PD 


Note: Also Q or Q] must be added. 




76 


120 


136 


180 






TAGDIF = 


88 




Q = 


208 


If no addrout and if any of the following conditions occur, add Q once: 
Other than Bl format; variable records; user routines PHI . 




Ql = 


128 


If any of the following conditions occur, add Ql once: 
ADDROUT option; other than Bl format; user routines PHI . 


PHASE- 2 


Fixed with or 

without ADDROUT = BASIC + ION + 6M + CFADD (OM 2-4 DSORT201) 

or 
Variable with 
ADDROUT = BASIC + 902 + ION +6M + CFADD (OM 5-7 DSORT202) 

Variable 

without ADDROUT = BASIC + 186 + ION + CFADD (OM 2-3 DSORT203) 

= BASIC + 186 + 928 + ION + CFADD (OM 4-6 DSORT204) 


PHASE 3 


Fixed with or 

without ADDROUT = BASIC + ION + 6M + DC3 + CFADD (OM 2-4 DSORT301) 

or 
Variable with 
ADDROUT = BASIC + 834 + ION + 6M + DC3 + CFADD (OM 5-7 DSORT302) 

Variable = BASIC + 134 + ION + DC3 + CFADD (OM 2-3 DSORT303) 

without 

ADDROUT = BASIC + 134 + 848 + ION + DC3 + CFADD (OM 4-6 DSORT304) 




DC3 


Fl 


FL 


ZD 


PD 






= 60 


94 


114 


154 




PHASE 4 


All cases = BASIC + ION - DC4 + CFADDM 




DC4 


Fl 


FL 


ZD 


PD 






50 


102 


164 


274 





Figure 13. Disk Sort/ Merge Phase Size Formulas 
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NOVAR, AG- £3 



CLORBV, AH-C1 



For other than an ADDROUT run, a branch is 
made to TSTER5. For an ADDROUT run, the 
validity of L3 (maximum length of a single 
output record) is checked, and the tag type 
and Exit 32 are initialized, The routine 
then branches to TSTER5. 



For a merge- only run, a branch is made to 
BLMAX4 to compute LMAX and BMAX for fixed- 
or variable- length records. 

For a sort run* a branch is made either 
to VL1 for variable-length records without 
ADDROUT, or to LI for fixed-length records 
or ADDROUT run. 



TSTER5, AG-G3 



If any errors are detected in this overlay, 
a branch is made to GETEOJ to fetch overlay 
10. If no errors occurred, overlay 6 is 
fetched. 



COMPUTE MAXIMUM ALLOWABLE INPUT AND OUTPUT 
RECORD AND BLOCK LENGTHS — AH 



Lmax and Bmax are calculated for each 
phase, using the phase sizes just 
calculated plus core size, supervisor, and, 
if applicable, the user area length. 
Because Lmax and Bmax must fit into all 
phases, the smallest calculated value in 
the respective calculations is taken by the 
program as LMAX, BMAX. 

BMAX must be considered when 
minimum- length records are used, and the 
8-byte address for each record becomes a 
determining factor for the number of 
records that can be read into phase 1. An 
increased number of mini mum- length records 
results in using more core space for the 
address table, thereby reducing the space 
available for record processing. 

LMAX, BMAX is calculated for phase 4 
only for merge-only runs. 

NOTE : Refer to the Systems Reference 

Library publication, IBM System/360 
Disk Operating System, Sort/Merge 
Program Specifications , Form 
C24-3444, for additional 
descriptions of the formulas used 
throughout this overlay. 



BLMAX4, AH-C2 



The maximum record length (LMAX) and 
maximum block length (GMAX) are calculated 
for fixed- or variable- length records. 

LMAX = BMAX = CORESZ - t SUPER + PHS34 + 

LEN34+ BLKSOZ ♦ (OM X BLKSI2) 
+ L13J 

CORESZ Core size- 

SUPER Length of supervisor. 

PHS34 Length of phase 4 program. 

LEN34 Length of phase 4 user area. 

BLKSOZ Output block length. 

OM Order of merge (FILES) . 

BLKSIZ Input block length. 

L13 (L1-L3) , when LI greater than 
L3. 

A branch is then made to CKLMAX. 



LI, AH-E2 



Register 14 is initialized to branch to 
CFL3MAX. LMAX for fixed-length records is 
calculated for phases- 1, 2, and 3 and 
stored in STP123, STP123+4, and STP123+8, 
respectively. 

• PHI LMAX « 

CORESZ - (SUPER + PHS1 + LEN1 + 8) * 
2 
SUPER Sort program origin. 
PHS1 Computed length of phase 1 

program. 
LEN1 Computed length of phase 1 user 

area. 
8 Two 4 -byte address table 

entries. 
2 Allows at least two areas 
(input and output). 



DSORT006, AH-B1 



PH2 LMAX = 



CORESZ 



SUPER - PHS2 



The registers to be used in overlay 6 are 
initialized and the routine continues to 

CLORBV. 



* Rounded to the next lower whole number. 
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PHS2 Length of phase 2 program. 

3 Minimum OM (2) + 1 for output, 

PH3 LMAX - 

CORESZ - (SUPER ♦ PHS34 + LEN34) * 



LMAX and is the maximum input record length 
that will fit in all phases. The routine 
then continues at CKLMAX. 



PHS34 Length of phase 3 program* 

LEN34 Length of phase 3 user area, 

3 Minimum OM (2) +1 for output- 

A branch is then made to DETSMALL. 



VL1, AH-F1 



Register 14 is initialized to branch to 
CVL3MAX. LMAX for variable- length records 
is calculated for phases 1, 2, and 3 and 
stored in STP123, STP123+4, and STP123+8, 
respectively, 

• PHI LMAX = 

CORESZ - (SUPER + PHSl + LENl + 8) 



CKLMAX, AH-H2 



If the computed LMAX is greater than 3624 
for ADDROUT or fixed-length records, or 
greater than 3620 for variable- length 
records, LMAX is reduced to 3624 or 3620, 
as the case may be. A branch is then made 
to the address contained in register 14 
(CFL3MAX for fixed/ ADD ROUT or CVL3MAX for 
variable) . 



CFL3MAX, AH-J1 



CORESZ Core size. 

SUPER Sort program origin. 

PHSl Computed length of phase 1 

program. 
LENl Computed length of phase 1 user 

area. 
8 Two 4 -byte address table 

entries. 
3 Allows for 1 input, 1 output, 

and 1 overflow area. 

PH2 LMAX = CORESZ - SUPER - PHS2 



Register 10 is initialized with the address 
of CKBI. L3MAX for fixed-length records is 
calculated; this is the maximum record 
length that phase 3 can process. This 
calculated value is compared to that given 
by the user to determine if the user- given 
value is within the limits compatible with 
storage size and the sort program. 

ROL=CORESZ-SUPER-PHS34-LEN34-2(LMAX)<3624 

A branch is then made to CKL3MAX. 



PHS2 Computed length of phase 2 

program. 
5 Minimum OM (2) + 1 each for 

overflow, input, and output. 

• PH3 LMAX = 

CORESZ - (SUPER + PHS34 + LEN34) 
5 

PHS34 Computed length of phase 3 

program. 
LEN34 Computed length of phase 3 user 

area. 

A branch is then made to DETSMALL, 



CVL3MAX, AH-K2 

Register 10 is initialized with the address 
of VB1. L3MAX for variable-length records 
is calculated and compared as described in 
CFL3MAX. The only difference is in the 
formula : 

ROL=CORESZ-SUPER-PHS34-LEN34-4(LMAX)<3620 

A branch is then made to CKL3MAX. 



DETSMALL, AH-G2 



The LMAX values calculated for phases 1, 2, 
and 3 (either fixed- length or 
variable- length, as the case may be) are 
compared to each other to determine the 
smallest value. This value is stored in 



CKL3MAX, AH-K1 



The calculated maximum phase 3 record 
length is compared to 3624 and the smaller 
value is used for L3MAX. A branch is then 
made to the address stored in register 10. 
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CKBI, AH-A4 



B2, AH-D4 



A branch is made to one of three locations, 
depending on the type of run: 

• Bl - for fixed- length records with 
fixed blocking, or 

* VARBI - for fixed-length records with 
variable blocking, or 



RAFBI 



for ADDR0UT sort 



The block length for fixed-length records 
of all types is calculated for phases 2 and 
3, and stored in BLK123+4 and BLK123+8, 
respectively. 



PH2 BMAX = 



CORES Z - SUPER 
3 



PHS2 



PH3 BMAX = 

CORES 2 - (SUPER + 



PHS34 ♦ LEN34) 



VARBI, AH-A5 



Register 14 is initialized with the address 
of CFB3MAX and a branch is made to 
DETL0WER. 



Phase 1 block length for fixed- length 
records with variable blocking is 
calculated and stored in BLK123, and a 
branch is made to B2- 



VB1, AH-B3 



PHI BMAX = 

CORESZ - (SUPER + PHSl + LEN1 - LI) 



LI 



3 + (8/L1) 

Maximum number of bytes in a 
single logical input record 



The block lengths for phases 1, 2, and 3 
are calculated and stored in BLK123, 
BLK123+4, and BLK123+8 , respectively. 

• PHI BMAX = 

CORESZ - (SUPER + PHSl ♦ LEND * 
3+(8/L4) 



RAFBI, AH-C5 



PH2 BMAX = 

CORESZ - [SUPER ♦ PHS2 ♦ (2 X LI)] * 



LI 



Phase 1 block length for fixed-length 
records with ADD ROUT output is calculated 
and stored in BLK123, and a branch is made 
to B2. 

PHI BMAX = 

CORESZ - (SUPER + PHSl » LEND * 
3 + (8/CF+10) 



CF 



Total length of all control 
fields. 



Maximum number of bytes in a 
single logical input record. 



PH3 BMAX = 
CORESZ - [SUPER+PHS34+(2 X L1J+LEN34] * 



Register 14 is initialized with the address 
of CVB3MAX and a branch is made to 
DETLOWER* 



Bl, AH-C4 



Phase 1 block length for fixed- length 
records in fixed blocks is calculated and 
stored in BLK123, and the routine continues 
to B2. 

PHI BMAX = 

CORESZ - (SUPER ♦ PHSl + LEND * 
2 + (8/Li) 



LI 



Maximum number of bytes in a 
single logical input record. 



DETLOWER, AH-D4 



The calculated block lengths for phases 1, 
2, and 3 (either variable- length or 
fixed- length, as the case may be) are 
compared to each other to determine the 
lowest value. This value is stored in BMAX 
and is the maximum allowable block length 
for sort. The routine then continues at 
CKBMAX. 



* Rounded to the next lower whole number. 
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CKBMAX, AH-D3 



The BMAX determined, as described under 
DETL0WER, is compared to 3624 and the 
smaller value is stored in BMAX. A branch 
is then made to the address stored in 
register 14 (CFB3MAX for fixed/ ADDROUT or 
CVB3MAX for variable). 



CFB3MAX, AH-F4 



B3MAX for fixed- length records is 
calculated; this is the maximum block 
length that phase 3 can process. This 
calculated value is compared to that given 
by the user to determine if the user- given 
value is within the limits compatible with 
storage size and the sort program. 

BOL = 
CORESZ-SUPER~PHS34-LEN34-L13-2(BMAX) <3624 

The routine then continues to FETCH7. 



exit 32 (for sort) or exit 43 (for merge) 
is specified. (These exits can be used to 
shorten or lengthen record lengths.) When 
non-standard labels are specified, exit 31 
(for sort) or 44 (for merge-only) must be 
specified. 

Other checks are made for: 

• Given mandatory file size and validity 
of same. 

• Current tape assignments when tape 
input or output is specified for sort 
or merge. 

• Input /output media and labels 
specified. 

• Validity of NOTPMK option. 

• Valid sort or merge volume entries. 

• Validity of key length entries. 

• Tape options. 

DSORT007, AJ-B1 



CVB3MAX, AH-F3 



B3MAX for variable -length records is 
calculated and compared as described in 
CFB3MAX. The only difference is in the 
formula: 

BOL = 
CORESZ-SUPER-PH34-LEN34-2<Ll)-2{BMAX)<3624 

The routine then continues to FETCH7. 



FETCH7, AH-G4 



If no errors are detected in this overlay, 
overlay 7 is fetched. If errors are 
detected, a branch is made to FETCHEND to 
fetch overlay 10. 



Registers are initialized for overlay 7 and 
the routine continues at NORAF. 



NORAF, AJ-C1 



For a sort of variable-length records, the 
routine is initialized to use L4 ( minimum 
length of a single logical input record) 
instead of LI for checking. A branch is 
then made to GETL1+4. 

For all other types of runs (ADDROUT 
sort, fixed-length record sort, or 
merge-only) , a branch is made to GETL1 to 
initialize the routine to use LI ( maximum 
length of a single logical input record) 
for checking. 



POST EDIT - AJ 



GETL1, AJ-D1 



Overlay 7 completes the editing of the sort 
control cards, and of the computed results 
of the control card data. Control- field 
lengths cannot exceed a total of 256 bytes. 
Multiple control fields are checked for 
overlapping on all formats except unsigned 
binary. Computed maximum record- lengths 
are checked against user-given 
record- lengths. If user-given L3 is 
greater than LI, a test is made to see that 



A register is loaded with the address of 
the phase table area, CF1LNG, which 
contains information pertaining to the 
control fields. Several validity checks 
are then made: 

* The length of any control field cannot 
exceed the end of a record. 

• The byte total of all control fields 
cannot exceed 256. 
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• Floating-point format fields cannot be 
greater than 8 bytes, and zoned or 
packed decimal cannot be greater than 
16 bytes, including the sign* 

The control field length and location is 
incremented by 1 to obtain the original 
value (the value prior to overlay 3) but 
the table values are not changed. 



LENLO, AJ-J1 



For a merge, the number of inputs allowed 
is obtained from location OM and loaded in 
register 4* For a sort, register 4 is 
loaded with one* For a merge or a sort, 
register 3 is loaded with the contents of 
INPUTMRG. 

The routine then continues at LOOP* 



L3L1, AJ-E1 



LOOP, AJ-A3 



Note : For an ADDROUT run, the function 

provided at this location would have 
been executed in overlay 5 and a 
branch is now made to LENHI. 

If L3 (output length) is less than LI 
(input length) , it indicates that the user 
desires to shorten records; exits 32 or 43 
must be specified for this purpose or an 
error results for variable- length records* 
Tests are made for the type of record and 
for sort or merge-only run. The program 
automatically truncates the low-order bytes 
of fixed-length records if L3<L1 is 
specified. For variable- length records, 
the truncating must be done by the user by 
means of exit 32 for a sort or exit 43 for 
a merge. The routine then continues at 
LENHI. 



LENHI, AJ-G1 



LI (maximum number of bytes in a single 
logical input record) , located in INTPRL, 
is tested to determine that it is equal to 
or less than the calculated LMAX. If LI is 
greater, an error message is printed. The 
routine then continues to CKL3MX. 



CKL3MX, AJ-H1 



For a merge- only run, a branch is made to 
LENLO. 

For a sort, the switch at LENLOSW is 
turned off (no-op). L3 (maximum number of 
bytes in a single logical output record) , 
located in INTPRL+4, is compared to 
calculated L3MAX. If L3 is greater than 
L3MAX, a branch is made to LENLOA+4 to 
print the error message. If L3 is equal to 
or less than L3MAX, a branch is made to 
LENLO. 



INPBK is initialized with the type of input 
specified* For a sort, only one input type 
(tape or disk) will be indicated in this 
byte. For a merge, INPBK can indicate 
mixed input types* INPBK is used later 
when checking options relating to device 
types. 



TESTDEV, AJ-B3 



This routine determines if system 
assignments for tape devices are compatible 
with input /out put devices specified for the 
sort/merge program. 

A file count is set up in general 
register 4j this count is equal to the 
number of input files (FILES) , plus 1 for 
the output file. Devices are extracted 
from the PUB table for SYS001 through 
SYS010, depending on the number in FILES. 
When the count in general register 4 is 
reduced to zero, indicating that all 
devices have been extracted, the remainder 
of this routine is bypassed and the program 
branches to VALIDATE. If tape was not 
specified for any input or output, the 
program branches to MINBLKI. 



For merge -only : 
initialized: 



The registers used are 



R2 - SYSTABLE pointer 

R4 - file count 

R5 - device pointer to INPUTMRG 

R6 - LUB pointer 

The low-order bit of INPUTMRG is tested 
to determine if the device is tape or disk. 
If the device is tape, register 9 is zeroed 
(at GETDEV) and register 8 is loaded with 
the LUB address. Register 8 is then 
incremented by 22 (SYS001 is the eleventh 
2-byte entry in the LUB table) plus the 
value contained in register 6 (zero for 
first time through) to obtain the address 
of the LUB entry. The LUB entry (PUB 
pointer) is then inserted into register 9 
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and multiplied by 8 (number of bytes 
displacements per PUB) to obtain the 
address of the first PUB on the channel 
list (PUB address). The channel and unit 
identification, and the device type for 
SYS001 are then extracted from the PUB 
address. For a more detailed description, 
refer to the Program Logic Manual 
publication, IBM System/360 Tape Operating 
System, System Control , Form Z24-5022. 

Register 2 contents are increased by 4 
to obtain the contents of SYSTABLE* 4 
(00000002). The contents of register 6 
(zero) are increased by 2 (number of bytes 
per LUB) to obtain the address of the next 
LUB entry. The contents of register 5 
(device pointer) are increased by one to 
indicate the first input device, FILEA, 
( INPUTMRG +1 ) . The file count, contained in 
register 4, is then decreased by one. 

The program branches to LOOP1 to test 
the low order bit of INPUTMRG+1 for disk or 
tape for SYS002. The processing described 
in the preceding paragraph is repeated 
until the file count in register 4 is 
reduced to zero, at which time a branch 
will be made to VALIDATE. 

If the device checked (in register 5) is 
not tape, the routine to obtain channel, 
unit, and device type (at GETDEV) is not 
entered but registers 2, 4, 5, and 6 are 
altered, for the next SYSTABLE entry, as 
described for tape device identification. 

For sort : The compatibility check for a 
sort run is similar to that described for a 
merge. The major difference is that the 
switches at SSI and SS2 are set on 
(unconditional branch) so that the contents 
of register 5 (output file data from 
location INPUTMRG) are altered only once 
for input file (FILEA) data from location 
INPUTMRG* 1. Specifications for a sort 
state that all input files (maximum of 9) 
must be of the same type. It is 
unnecessary, therefore, to continue to 
alter register 5 after processing the first 
input file, because compatibility checks 
are not required for SYS002 through SYS010. 
General registers 2, 4, and 6 are altered 
for each SYSTABLE entry and processing is 
repeated as described for a merge. A 
branch is then made to VALIDATE. 



tested for tape device. If the output file 
is not tape, registers 2 and 5 are altered 
for SYS002 and for the first input file, 
FILEA (INPUTMRG-H), respectively. INPBK is 
tested to determine if any input file is 
tape and, if not, the program branches to 
ISMERG. 



If the output file is tape, one is added 
to the count in register 4, and INPBK is 
tested to determine if any input file is 
tape. If not, the program branches to 
ISMERG. 



If any input file is tape, the count in 
register 4 is updated with the number of 
input files (FILES). If any device that 
should be a tape device is not assigned as 
such, an error message is printed to 
indicate the symbolic assignment in error. 



ISMERG: 



For a merge, the first input 



file (FILEA) is checked to determine the 
device type. If tape, SYS002 is checked 
for tape assignment and for duplicate 
assignment (error) . Registers 2 and 5 are 
altered for SYS003 and for the second input 
file, FILEB ( INPUTMRG + 2) , respectively, and 
the checking routine is repeated for all 
input files. If any input file is disk and 
not tape, the check for tape assignment and 
duplicate assignment is bypassed for that 
particular file, but registers 2 and 5 are 
altered for the next file. When all files 
have been checked, a branch is made to 
MINBLKI. If any duplicate assignments are 
detected, an error message is printed. 



For a sort, the switches at locations 
SS4A, SS2A, and SS5A are set on and the 
switch at location MSI is set off. This 
modifies the processing so that the input 
file data contained in register 5 is not 
altered for checking SYS003 through SYS010, 
When all input files have been checked, a 
branch is made to MINBLKI. 



MINBLKI, AJ-C3 



VALIDATE, AJ-B4 



Registers 4, 5, and 6 are loaded with 
zeroes and if the CALCAREA option is 
specified, a branch is made to MINBLKI. For 
all other type runs, register 2 is 
initialized for SYS001 and register 5 for 
output file (INPUTMRG). The output file is 



The input and output block sizes for tape 
are checked to determine that they are 
equal to or greater than the minimum 
specified size of 12 bytes. If so, a 
branch is made to BLKHIP. If errors are 
detected, a branch- and- link is made to 
ERR79 to print an error message, after 
which the program returns to BLKHIP. 
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BLKHIP, AJ-D3 



OVLPCF, AJ-K2 



The calculated maximum block size is 
checked to determine if it is at least the 
minimum of 300 bytes. The routine then 
continues at BLKOK. 



BLKOK, AJ-E3 



For a merge, this routine is bypassed 
because its function has already been 
performed by overlay 6; a branch is made to 
CKSIZ. 



Tests are made to determine if control 
fields overlap, only if there is more than 
one control field and if the format is 
other than unsigned- binary. The first 
control field is checked to see if it 
overlaps into any one of the following 
control fields. After checking the first 
field, the second is checked against the 
rest and so on, until all fields are 
compared. The routine then continues at C. 
If an overlapping field is found, an error 
message is printed before continuing to C. 



C, AJ-A5 



For a sort, input and output block sizes 
are compared to computed maximums to 
determine their validity. For 
variable- length records, input and output 
block sizes are each checked to ensure that 
a 4 -byte block size indicator is included. 
The routine then continues at CKSIZ. 



A check is made for valid placement of the 
control fields for variable-length records 
only. A control field may not start prior 
to byte 5 (bytes 1 through 4 are reserved 
for the record length indicator). 



CKLABELS, AJ-B5 



CKSIZ, AJ-H3 



This routine checks: 



A test is made to determine if file size 
was given for sort- The computed file size 
is then checked against the given size. 

If the ADDROUT option is specified for a 
merge run, an error message is printed. 

The routine then continues at L1MJLT. 



L1MULT, AJ-J2 



Tests are made to determine if LI is a 
multiple of the given input block size and 
if L3 is a multiple of the given output 
block size. These tests are made only for 
fixed length records with or without 
ADDROUT option. 

Note : For "A" type ADDROUT (address only), 
L3 must be equal to 10. For "D" 
type ADDROUT (address plus control 
field), L3 can be less than the 
total control field lengths plus 10 
(TLACFD+10) , but not less than 11; 
L3 cannot be greater than TLACFD+10 
unless exit 32 is specified. 



• if labels were specified (if not, 
assume standard labels for all files) 

• if assumed or given labels are valid 
for disk input and output. 

• if input and output label types are 
given and that the types are 
compatible. 

A merge may have mixed input (tape and 
disk) and, therefore, mixed labels. A 
check is made to determine that standard 
labels only are given for any disk input 
files. 

The NOTPMK option may be specified at 
any time, for tape output. If the NOTPMK 
option is specified with standard labels, 
however, a warning message is printed. The 
processing will not be interrupted but a 
tape mark is written in later phases. 



CKRWD, AJ-C5 



The OPEN or CLOSE options are checked for 
tape input and output. If either or both 
options are not specified, RWD (rewind) is 
assumed. 
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CKTYPEIN, AJ-D5 



For a merge, a branch is made to CKMERGE. 
For a sort with disk input, tests are made 
for any tape options that may have been 
given in error. Similar tests are made for 
output. 



Exit 31 specified for unlabeled output 
file. 

The routine continues at CKKEY. 



CKKEY, AJ-G5 



CKMERGE, AJ-E4 



Merge-only options are tested for mixed 
input and for any tape options that may 
have been given in error for disk input. 



The HELEN option may be used only for 
fixed- length records that are unblocked 
and, in the case of input, for disk only. 
Output may be on either tape or disk, and 
ADDROUT output may be blocked or unblocked. 
If these requirements are not met, an error 
message is printed. The routine then 
continues to CKVOL. 



IABEXCK, AJ-F5 



CKVOL, AJ-H5 



Specified labels are checked against any 
user exits that may be required (see Figure 
1**). These checks are bypassed by 
branching to CKKEY if: 

• All types of labels specified. 

• Unlabeled files not specified. 

• Both unlabeled and standard labels 
specified. 

For a merge of unlabeled files, error 
conditions result if: 

• Exit 41 specified for input. 

» Exit 44 specified for output. 

For a sort, error conditions result if: 

» Exit 11 specified for unlabeled input 
files. 

• Exit 13 specified for disk input files. 

» Exit 31 not specified for non-standard 
output labels* 



Each input file is checked for the number 
of volumes (obtained from MRGVOL). The 
number of volumes is then set depending on 
several conditions: 

* Standard labels - Use number given by 
user; if not given, use 0. 

* Non-standard labels with exit 11 or 41 
- Use whether or not number is given. 

* Non-standard labels without exit - Use 
number given by user; if not given, use 
1. 

* Unlabeled - Use number given by user; 
if not given, use 1. 

VJhen all files have been checked, a branch 
is made to TSER7. 



TSER7, AJ-J5 



If no errors were detected in this overlay, 
overlay 8 is fetched. If errors were 
detected a branch is made to FETCHEND to 
fetch overlay 10. 
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EXIT* 


USED FOR 


REQUIRED 


OPTIONAL 


NOT 
ALLOWED 




II 


Process User or 
Non-std Labels- 
Phase 1 


Never 


With Std, 
User or 
Nonstd 
Labels 


With 

Unlabeled 

Files 




12 


All Purpose 
Phase 1 


Never 


Anytime 


Never 


SORT 


13 


Bypass Unread- 
able Tape Input 
Blocks Phase 1 


Never 


With Tape 

Input 

Only 


With Disk 

Input 

Only 




31 


Process User or 
Non-std Labels 
Phase 3 


With Non-std 
Labels 


With Std, 
User or 
Nonstd 
Labels 


With 

Unlabeled 

Files 




32 


Record Alter- 
ing Phase 3: 
Fixed Records, 
D-type Addrout, 
(Forv) 
Variable Records 


When L3 > < 1 
When L3 > (CF+10) 

When L3 / LI 


Anytime 


Never 




41 


Process User or 
Non-std Labels 
Phase 4 (Input) 


Never 


With Std, 
User or 
Nonstd 
Labels 


With 

Unlabeled 

Files 




42 


All Purpose 
Phase 4 


Never 


Anytime 


Never 


MERGE 


43 


Record Altering 
Phase 4: 
Fixed Records, 
Variable Records 


When L3 > LI 
When L3/L1 


Anytime 


Never 




44 


Process User or 
Nonstd (Output) 
Labels Phase 4 


With Non-std 
Labels 


Std, User 
or Nonstd 
Labels 


With 

Unlabeled 

Files 




45 


Bypass Unread- 
able Tape or 
Disk Input 
Blocks 


Never 


Anytime 


Never 



Figure 14. Exit Chart 

COMPUTE CONSTANTS FOR FIXED- LENGTH RECORDS input or output constants for a merge-only 
- AK, AL run. 



This routine (part of overlay 8) calculates 
constants for fixed- length records for a 
sort run. It also calculates some disk 



Formulas used in the calculations are 
described in detail in IBM System/ 360 Disk 
Operating System , Sort /Merge 
Specifications , Form C24-3444. 
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DSQRTOOS, AK-B1 



saved but the value of the 
denominator is. 



The base register is initialized and a 
branch is made to CLEAR. 



CALPH1B2, AK-K1 



CLEAR, AK-C1 



Registers are cleared and a branch is made 
to the routine for the type of record to be 
processed: 

• RAFRTN (Chart AN), for ADDR0UT run. 

» VARRTN (Chart AM) , for variable- length 
records . 

• STEP (Chart AK), for fixed-length 
records. 

If CALCAREA option is specified, switch 
CALCSW2 is turned on (unconditional 
branch) . 



STEP, AK-Gl 



The alternate PH1B1 (PH1B2) is calculated 
and compared to that calculated in STEP1. 
The smaller value is saved as the effective 
PH1B1. 

PH1B1 « 3624 
LI 

Note : The result of this calculation is 
temporarily stored in PH1B2. 

PH1B2 is then calculated: 

PH1B2 = 
CQRESZ- (PHSl+BLKSIZ-Ll+SUPER+LENl ) 
CP2LP8 



BLKSIZ 



Input block size in bytes. 



The result of this calculation is 
compared with that of the alternate PH1B2 
(same as alternate PH1B1) and the lesser 
value is saved as the effective PH1B2. 



For merge- only, a branch is made to OUTPT 
(Chart AL). For fixed blocking, a branch 
is made to STEP1. For variable-blocking, 
the switch at C2LP8SW is set to prevent 
storing the result of the first calculated 
value for PH1B1. In this case, the 
denominator is calculated and stored and 
the routine continues at CALPH1B2. (Also 
see note at end of STEP1. ) 



STEP IB, AK-A4 



The maximum number of bytes in a phase 2 
block and in a phase 3 block are calculated 
and the smaller of the two values is saved 
in MAXBL for later calculations* 



STEP1, AK-J1 



The maximum number of records in a phase 1 
sort block (PH1B1) is calculated: 

PH1B1 = CQRESZ - PHS1 - SUPER - LEN1 
2 (LI) + 8 

CORES Z Number of bytes of main storage 

available for sort program. 
PHS1 Calculated phase 1 program 

size. 
SUPER Size of supervisor. 
LEN1 Number of bytes required for 

user program in phase 1. 
LI Number of bytes in a single or 

logical input record* 

Note : The value of the denominator, 2 (LI) 
♦ 8, is stored in CP2LP8 for use in 
later calculations. For 
variable-blocking , the result of 
this calculation of PH1B1 is not 



If the calculated MAXBL exceeds the 
maximum number of bytes per 2311 track 
(3624), the calculation is invalid and 3624 
is substituted in MAXBL. The MAXBL of 3624 
is rounded to a multiple of the input 
record length (LI) and retained in SBSIZE 
(computed sort block size). 

For phase 3 , if the input record length 
is equal to or less than the output record 
length (L1<L3) , then: 

MAXBL « 
CQRESZ- (8 +PHS34+BLKSOZ+SUPER+LEN34) 
CM 

For phase 3, if the input record length 
is greater than the output record length 
(L1>L3), then: 

MAXBL - 
CQRESZ- (8+PHS34+BLKSOZ+L1-L3+SUPER+LEN34) 

OM 

BLKS0Z Output block size in bytes. 
PHS34 Length of phase 3 or 4 program. 
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LEN34 Length of user program in phase 
3 or 4. 



For phase 2: 

MAXBL = CORESZ- (PHS2+SUPER) 
OM+1 



STEP3, AK-B4 



The maximum number of records that a phase 
2 or phase 3 block can contain (RECBLK) is 
calculated: 

RECBLK = SBSIZE 
LI 



COMBPT, AK-P4 

Constants are calculated for disk 
operation: 

» BYTBLK (bytes per block including disk 
gaps ) • 

BYTBLK = 61+1 (537 (SBSIZE+1))/5123* 

« BYBKLS (bytes per last block for disk) - 

BYBKLS = 1+SBSIZE 

• BPT ^maximum number of blocks per 2311 
track). 

BPT = l+[( 3625- BYBKLS)/ BYTBLK]* 
CKBPT, AK-G4 



STEP 3 A, AK-C4 



If calculated RECBLK is equal to or less 
than PH1B2, a branch is made to STEP4. If 
RECBLK is greater than PH1B2, RECBLK must 
be recalculated. 

Calculate the largest multiple of number 
of records per input block (BI) that is 
equal to or less than PH1B1: 

* BI = BLKSIZ 

LI 

* First try = PH1B1 (largest multiple) 

BI 



The calculated BPT is compared to the 
previous BPT. If the calculated value is 
greater, a branch is made to CBYPTK; if 
not, RECBLK is checked to see if it equals 
one. If RECBLK equals one, and the 
CALCAREA option is not specified, a branch 
is made to SW1; with the CALCAREA option, 
the branch is to USEORIG. If the 
calculated BPT is less than the previous 
BPT but greater than 1, the routine 
continues at REDUCE. 



REDUCE, AK-H5 



RECBLK is reduced by one and a branch is 
made back to STEP3A to try to optimize BPT. 



* Second try = RECBLK (new or original) 

BI 

The result of the first try is compared 
to that of the second try and the lesser 
value is stored in RECBLK. 

The new RECBLK is now compared to PH1B2 
and the greater value is stored as the 
effective RECBLK. The routine then 
continues at STEP 4. 



STEP 4, AK-E4 



The number of bytes per sort block (SBSIZE) 
is calculated: 

SBSIZE = RECBLK X INTPRL 



USEORIG, AK-J5 



When RECBLK is not to be changed, original 
values are saved: 



OM (internal order of merge) 

B (number of records per internal sort 
block) 

SBSIZE (internal sort block size in 
bytes) 

BPT (maximum number of internal sort 
blocks per 2311 track) 

G (number of records per phase 1 
sequence) 



* Rounded to the next lower number. 
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♦ GA1 (available core for sort) 

» GAREA (number of bytes in a phase 1 
sequence, excluding tag area f in GAD 

• GAREAl (number of bytes in a phase 1 
sequence, including tag area, in GAD 

* NOBLKG (number of sort blocks in GAREA) 

* MXBYPT (maximum number of bytes per 
track) 



(0M>2) , a branch is made to STEP1B (Chart 
AK) to recalculate all constants using a 
lower OM. 

If RECBLK is equal to one and the last 
set of constants has been calculated (OM = 
2), a branch is made to OUTPT. 



COMPG, AL-D1 



• AMAX (size of work area) 

» NOP ASS (number of merge passes in 
phases 2 and 3). 

A branch is then made to PUTC02, 



Constants GA1 , GA2, GAREA, and GAREA1 are 
calculated; these will be used to compute G 
area, 

* GA1 (available core for sort) 

GA1 = C0RESZ-SUPER-PHS1-LEN1-S3SIZE 



CBYPTK, AK-H3 



The maximum number of bytes per track 
(MXBYPT) and the maximum work area size 
(AMAX) are calculated: 

• MXBYPT = SBSIZE X BPT 

» AJyiAX = 2KFILESZ X LI ) /MXBYPT] *+3 

♦Hounded to the next higher whole number. 

If the CALCAREA option is specified 
(CALCSW2 switch on - Chart AL), a branch is 
made to INITCSWS. If not the CALCAREA 
option, AMAX is compared to the work area 
given by the user (TRACKS), If AMAX is 
greater, a branch is made to SW.1; if AMAX 
is equal to or less than TRACKS, the branch 
is to COMPG. 



SW1 # AL-D2 



The constants just calculated are saved but 
are not used. To accomplish this, the 
second byte of the OM is ORed with a 
hexadeciaml FO to signal future overlays 
that the calculated constants for this 
particlular OM are nullified and cannot be 
used, (For example: an OM of 0007 is made 
00F7.) 

If RECBLK is greater than one, a branch 
is made to REDUCE (Chart AK) to recalculate 
constants for the current OM using a 
decreased RECBLK, The set of constants 
resulting from the recalculation will be 
substituted for the nullified set for the 
current OM, 

If RECBLK is equal to one and the last 
set of constants has not been calculated 



CORESZ Number of bytes of core 

storage available for the 

sort program. 
SUPER Size of supervisor. 
PHS1 Phase 1 program size. 
LEN1 Number of bytes required for 

user program in phase 1, 
SBSIZE Sort block size (output area) 

in bytes. 

Note: If blocking is variable, the 

overflow area must be equal to the 
minimum input block minus LI 
(maximum number of bytes in a single 
or logical input record) . 

• GA2 (number of sort blocks, plus an 

8-byte tag for each record in the sort 
block, in GAD. 



GA1 



GA2 - 



LI 



SBSIZE ♦ [8 (SBSIZE/L1) ] * 

Maximum length of input 
record. 



Note: 



♦Rounded to the next lower whole 
number. 

The divisor in this calculation is 
saved in SBSZPTAG and is used in 
later calculations. 

GAREA (number of bytes in a phase 1 
sequence, excluding tag area, in GAD. 

GAREA = SBSIZE X GA2 

GAREAl (number of bytes in a phase 1 
sequence, including tag area, in GA1. 

GAREAl = 

GA2 [SBSIZE* ( (SBSIZE/SBSZPTAG)X8) 3 



Figure 15 is an illustration of the sort 
area in core as determined by the 
calculations in COMPG, 
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Supervisor, PHS1 and 
Required Routines 



GA1 



GAREA1 



-GAREA 

(in equal sort blocks) 



1 8 * i 

I Number ' 



I of | 

I Records ■ 

-*! in 



GAREA 



Overflow 
Area 



Sort Block 

Size 

(SBSIZE) 



Figure 15* Sort Area Layout - Overlay 8 



RETRY, AL-E1 



For variable blocking, a branch is made to 
BYPVAR* For fixed blocking, a test is made 
to determine if GAREA is a multiple of the 
input block size (BLKSIZ). If it is, a 
branch is made to ENDGF to compute G; 
otherwise, the routine continues at BYPVAR* 



multiplied by itself until a product 
equal to or greater than the number of 
sequences is reached* Each 
multiplication is counted, and the 
count is taken as the number of merge 
passes (NOPASS). If the number of 
sequences is less than the OM, NOPASS 
is made equal to one and phase 2 of the 
sort/merge program will be bypassed* 

The routine then continues at PUTCON* 



BYPVAR, AL-G1 



The size of the overflow area is calculated 
and if the size is adequate a branch is 
made to ENDGF to compute G* If the area is 
too small, GAREA1 is reduced by the 
quantity (SBSIZE + SBSZPTAG) , and the 
routine branches back to RETRY until a 
valid overflow area is established* If no 
overflow area exists, a branch is made to 
SHI to nullify current calculations* 



ENDGF, AL-A3 

Several constants are calculated and saved: 

• Final G (number of records per phase 1 
string) . 

G = GAREA 

LI 

• B (number of records per sort block) * 

B = SBSIZE 
LI 

• NOBLKG (number of sort blocks in G) * 

NOBLKG = GAREA 
SBSIZE 

• NOPASS (number of merge passes) 

File size (FILESZ) is divided by G 
and rounded high to obtain the maximum 
number of sequences* The OM is then 



PUTCON, AL-C3 



If the CALCAREA option is specified (switch 
PUTCONSW is on) and the first series of 
calculated constants for each OM have been 
saved, a branch is made to CALRPT* 
Otherwise, the final BPT for the current OM 
is calculated and constants are saved: 

• OH (internal order of merge) 

• B (number of records per internal sort 
block) 

• SBSIZE ( internal sort block size in 
bytes) 

• BPT (maximum number of blocks per 2311 
track) 

» G (number of records per phase 1 
sequence) 

• GA1 (available core for sort) 

• GAREA (number of bytes in a phase 1 
sequence, excluding tag area, in GAD 

• GAREA1 (number of bytes in a phase 1 
sequence, including tag area, in GA1) 

• NOBLKG (number of sort blocks in GAREA) 

» MXBYPT (maximum number of bytes per 
track) 

• AMAX (size of work area) 
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• NOPASS (number of merge passes in 
phases 2 and 3). 

The routine then continues at CALRPT. 



CALRPT, AL-A4 



If switch CALRPT is on ( unconditional 
branch) , this routine is bypassed by 
branching to REINIT. 

If the switch is off (no-op) , switches 
CALRPT and PUTCONSW are turned on and a new 
value is calculated for records per track 
CRPT) * The new RPT is compared to the 
previous RPT, and if the new value is 
greater, the new RPT and AMAX are saved and 
the routine continues to REINIT. 

If the new RPT is less than the previous 
RPT, a branch is made to CKRECBK. 



OUTPT, AL-G3 



• For tape input/ out put, this routine is 
bypassed to fetch the next overlay at 
FETCH9. 

• For disk output, output BYTBLK, BYBKLS, 
and BPT30P are calculated for phase 3 * 

• For disk input, input BYTBLK, BYBKLS, 
and BPT1IP are calculated for phase 1. 

A branch is then made to FETCH9. 



FETCH 9, AL-H3 



The next overlay (DSORT009) is fetched if 
no errors were detected. If there were any 
errors, the last overlay (DSORT010) is 
fetched. 



REINIT, AL-B4 



COMPUTE CONSTANTS (VARIABLE- LENGTH RECORDS) 
- AM 



Switches CALRPT and PUTCONSW are turned off 
(no-op) and a new RPT is calculated and 
compared as described in the preceding 
function block (CALRPT). 



CKRECBK, AL-B5 



This routine (part of overlay 8) calculates 
constants for variable- length records for a 
sort run. Formulas used in the 
calculations are described in detail in IBM 
System/ 360 Disk Operating System, 
Sort/Merge Program Specifications , Form 
C24-3444. 



If RECBLK is equal to one, switches 
PUTCONSW and CALRPT are turned off (at 
REINIT1) and the routine branches to 
PUTC02. 

If RECBLK is not equal to one and switch 
PUTCONSW is on, a branch is made to PUTC02 
to reduce CM and recalculate constants. If 
RECBLK is not equal to one and PUTCONSW is 
off, RECBLK is reduced by one and a branch 
is made back to STEP3A (Chart AK) to 
recalculate. 



VARRTN, AM-B1 



For a merge-only run, a branch is made to 
fetch overlay 10 at FETCHEND. If CALCAREA 
option is not specified, a branch is made 
to STEP IV. For other than merge-only or 
CALCAREA runs, switches CALCSW1V and 
CALSW2V are turned on (unconditional 
branch) and the routine continues to 
STEPIV. 



PUTC02, AL-F4 



STEPIV, AM-D1 



If the last calculation has been made (OM = 
2), a branch is made to OUTPT. When OM is 
greater than **, OM is reduced by 1 and a 
branch is made to STEP IB (Chart AK) to 
recalculate all values. When OM is equal 
to or less than 4, the minimum sizes for 
phases 2 and 3 are used, OM is decreased by 
1, and a branch is made to STEP1B (Chart 
AK) to recalculate all values. 



In order to compute the work area for 
variable- length records, it is necessary to 
calculate: 

• MAXBL1 (maximum block size for phase 1) 

• MAXBL2 (maximum block size for phase 2) 

• MAXBL3 (maximum block size for phase 3) 
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MAXBL1 = 

CORESZ - SUPER - PHS1 - LBN1 - BLKSIZ 
2 ♦ (8/L4) 



MAXBL2 = 

C ORE SZ- SUPER- PHS2- ( LI x OM) 
OM+1 

LI length, in bytes, of largest 

input record - 

OM Order of Merge (ranges from 2 

to 6). 

MAXBL3 * 
CORESZ- SUPER- PHS34-LEN34- BLKSOZ- ( LI X OM) 

OM 

PHS34 Phase 3 program size* 

LEN34 Humber of bytes required for 
user program in Phase 3. 

BLKSOZ Length, in bytes, of a single 
output block. 

If the calculated value of MAXBL2 or 
MAXBL3 exceeds 3624, the calculations are 
disregarded and 3624 is substituted- 

MAXBL1 is compared to MAXBL2 and the 
smaller of the two values is then compared 
to MAXBL3. The smaller of the latter two 
values is used as the final MAXBL3 and, if 
less than 3624, it is also used as SBSIZE. 
If MAXBL3 is not less than 3624, SBSIZE is 
made equal to 3624, The routine then 
continues to COMBPTV. 



COMBPTV, AM-G1 



A branch and link is made to COMPBT+4 
(Chart AK) to calculate the number of 
blocks per track. Upon return to this 
routine, the BPT just calculated is 
compared to the previous BPT. If the new 
BPT is greater, a branch is made to 
CByPTKV. If the previous BPT is greater or 
equal, the routine continues to REDUCEV. 



CBYPTKV, AM-J1 



The maximum number of bytes per track 
(MXBYPT) is calculated by multiplying sort 
block size (SBSIZE) by number of sort 
blocks per track (BPT) and the routine 
continues to COMPGV. 



COMPGV, AM-A4 

G area constants are calculated and saved : 

• GA1 (available core for sort) 

GAl=CORESZ- (SUPER* PHS1 +LEN1+SBS IZE+BLKS IZ ) 

This calculation is similar to that for 
fixed length records and is described in 
detail in the narrative for COMPG (Chart 
AK). 

* NOBLKG (number of sort blocks in GAREA) 

GA1 



NOBLKG = 



C(SBSIZE/L4)X83+SBSIZE 



L4 



minimum length, in bytes, of 
single logical input record- 



Note: BLKSEQ is stored in NOBLKG after 
calculation. 

• G maximum (maximum records per sequence 
in Phase 1) 

G maximum = NOBLKG X SBSIZE 

L4 

Note ; G maximum is stored in GAREA1. 

» B (average number of records per block) 

B = SBSIZE 
LAVG 

LAVG = L5 = the mean length of a 
logical input record (the 
intermediate value between LI 
and L4 , or LI ) . 

* GAVG (number of records in a 
string/sequence) 

GAVG = SBSIZE X NOBLKG 
LAVG 

Store GAVG in G after calculation. 

» GAREA (number of bytes in a phase 1 
sequence, excluding tag area, in GAD 
GAREA = NOBLKG X SBSIZE 

» AMAX (maximum number of work area 
tracks) 

The first step in the calculation of 
AMAX is to divide FILESZ (number of 
input records) by GAVG (number of 
records per sequence) . The quotient, 
rounded high if there is a remainder, 
is the number of sequences; this value 
is stored in NOSEQ. The second step is 
to divide by BPT. This quotient, 
rounded low if there is a remainder, is 
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the portion of a sequence that can be 
written on one 2311 track. The final 
step is to multiply the two quotients 
(BLKSEW divided by BPT) (NOSEQ) , double 
the result, and add 3 to include 
checkpoint tracks. 



AMAX = 2t (NIR/RECSEQ)*(BLKSEQ/BPT)#3+3 



NIR Number of input records given by 
user. 



PUTCOV, AM-D5 



A branch and link is made to COMBPT+4 
(Chart AK) to calculate the final sort BPT* 
Upon return to this routine (at PUTCOV* 8), 
the constants calculated for the current OM 
are saved: 

• OM (internal order of merge) 

• B (average number of records per 
internal sort block) 



♦rounded to next higher whole 

number 
Grounded to next lower whole 

number 

The routine then continues to CALSW2V. 



SBSIZE (internal sort block size in 
bytes) 

BPT (maximum number of internal sort 
blocks per 2311 track) 

G (average number of records per phase 
1 sequence) 

GA1 (available core for sort) 



CALSW2V, AM-C4 



If the CALCAREA option is specified (switch 
CALSW2V is on) , a branch is made to CALNOP; 
if not f the calculated work area (AMAX) is 
compared to the work area given by user 
(TRACK)* If AMAX is equal to or less than 
TRACK, the constants calculated are optimum 
values for the current OM and a branch is 
made to CALNOP. If AMAX exceeds TRACK, all 
calculated constants are nullified. To 
accomplish this, the second byte of the OM 
is ORed with a hexadecimal FO to signal 
future overlays that the constants for this 
particular OM cannot be used. 

If SBSIZE is greater than LI, a branch 
is made to REDUCEV to initialize for 
recalculation of constants using a lower 
OM, If SBSIZE is not greater than LI, the 
routine continues to SW2V. 



• GAREA (number of bytes in a phase 1 
sequence, excluding tag area, in GAD 

• GAREA1 (maximum number of records in a 
phase 1 sequence) 

• NOBLKG (number of sort blocks in GAREA) 

• MXBYPT (maximum number of bytes per 
track) 

• AMAX (calculated size of work area) 

• NOP ASS (number of merge passes in 
phases 2 and 3) 

The routine then branches to CKAMAX to test 
for best AMAX. 



CKAMAX, AM-E5 



CALNOP, AM-C5 



The calculated AMAX is compared with the 
previous AMAX (BESTBKT) . The better of the 
two values is saved in BESTBKT and a branch 
is made to SW2V to continue calculations. 



The number of merge passes (NOP ASS) 
required for sort are calculated: 

If the number of sequences is less than 
the current OM, NOPASS is made 1 and the 
routine branches to PUTCOV. If the number 
of sequences is equal to or greater than 
the current OM, the count (NOPASS) is 
started at 1 and the OM is multiplied by 
itself until the product equals the number 
of sequences (NOSEQ). NOPASS is 
incremented by 1 for each multiplication. 
The routine then branches to PUTCOV. 



REDUCEV, AM-C3 



The calculated MAXBL3 (equivalent to 
SBSIZE) is compared with LI (maximum input 
record length) . If MAXBL3 is greater than 
LI, it is decreased by the value of LI and 
compared to LI again. If MAXBL3 is now 
equal to or less than LI, a branch is made 
to SW2V. If MAXBL3 remains greater than 
LL, a branch is made back to COMBPTV to 
recalculate constants using the lower 
MAXBL3 value (SBSIZE). 
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If in the first comparison at REDUCEV 
MAXBL3 is found to be equal to or less than 
LI, a test is made for the CALCAREA option. 
If the option has been specified, a branch 
is made to SVORIG; if it has not been 
specified, the branch is to SW2V. 



RAFRTN, AN-B1 



If the CALCAREA option is specified, switch 
CALSWR2 is turned on (unconditional 
branch). In any case, the routine 
continues to STEP1R. 



SVORIG, AM-E3 



The original constants were found to be 
best for the current OM and are saved. 
These constants and their definitions are 
the same as those listed under PUTCQV . 

The routine then continues to CKAMAX. 



SW2V, AM-F4 



If the last set of constants has been 
calculated (0M=2), a branch is made to 
FETCH 9 to fetch the next overlay. If 
another set of constants has yet to be 
calculated (OM>2) , the new save area 
address is calculated by adding 32 bytes to 
the address in general register R3. If the 
OM is equal to or less than 3, the minimum 
phase 2 and 3 sizes are used in the 
calculation of the next set of constants. 

The OM is then reduced by one and a 
branch is made back to location PHZ2 in the 
listing (calculation of MAXBL2 in the 
narrative for STEP IV) to recalculate all 
constants for the new OM. 



FETCH 9, AM-H4 



If no errors were detected, the next 
overlay (DSORT009) is fetched. If any 
errors were detected, overlay DSORT010 is 
fetched. 



STEP1R, AN-D1 

Constants for use in the ADDROUT run are 
calculated: 

• FH1B1 (maximum number of records 
contained in a phase 1 sort block) 

• PH1B1 = 

CORESZ - (PHS1+BLKSIZ+SUPR+LEN1) 
2 C(CF+10)+83 

CORESZ number of bytes of core 

storage available for sort 
program (C0RESZ) 

PHS1 Phase 1 program size 

BLKSIZ input block length 

SUPER supervisor size 

IEN1 Number of bytes required for 

user program in phase 1 

• CFPL10 (calculated control field 
length+10) 

CFPL10 = TLACFD+10 

TLACFD total length of all control 
fields 

• PH1B1 is recalculated using the 
formula: 

PH1B1 = 3624 

CFPL10 

The results of the two calculations for 
PH1B1 are compared and the lesser value is 
stored as the effective PH1B1. The routine 
then continues to STEP1BR. 



COMPUTE CONSTANTS FOR ADDROUT SORT - AN 



STEP1BR, AN-E1 



This routine (part of overlay 8) calculates 
constants for use with the RAF-type 
(ADDROUT) sort for fixed or variable- length 
records. Formulas used are described in 
detail in IBM System/360 Disk Operating 
System, Sort/Merge Program Specifications , 
Form C24-3444. 



Additional constants are calculated: 
• BL2 = CORESZ - (SUPER+PHS2) 

» MAXBL2 (maximum number of records per 
phase 2 block) 
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MAXBL2 = BL2 



CFPL1 



MAXBL2 is compared to PH1B1 and the 
lesser value is saved in RECBLK. 



If RECBLK is greater than one, it is 
decreased by one and a branch is made back 
to STEP4R to recalculate SBSIZE and BPT. 



• BL3 = 
C0RESZ-(PHS3U»BLKS0Z»TLACFD+SUPER+LEN34) 

0M 

• MAXBL3 (maximum number of records per 
phase 3 block) 

MAXBL3 = BL3 



CFPL10 



PHS34 - Computed phase 3 size for 
ADDROUT 

BLKSOZ - Output block size 

TLACFD - Total length of all control 
fields 

LEN34 - length of user program in phase 
3. 

MAXBL3, MAXBL2, and PH1B1 are compared 
to RECBLK and the lesser value is stored as 
the maximum number of records per block 
(RECBLK) . 



STEP4R, AN-G1 



USEORIGR, AN-J2 



The original values that were passed to 
overlay 8 are saved: 

• 0M (internal order of merge) 

• B (number of records per internal sort 
block) 

• SBSIZE (internal sort block size in 
bytes) 

• BPT (maximum number of internal sort 
blocks per 2311 track) 

• G (number of records per phase 1 
sequence) 

• GA1 (available core for sort) 

• GAREA (number of bytes in a phase 1 
sequence, excluding tag area, in GAD 

• GAREA1 (number of bytes in a phase 1 
sequence, including tag area, in GAD 

• NOBLKG (number of sort blocks in GAREA) 



The sort block size (SBSIZE) and maximum 
number of blocks per 2311 track (BPT) are 
calculated: 

• SBSIZE = RECBLK X CFPL10 

• BPT - A branch and link is made to 
COMBPT+4 (Chart AK) to calculate the 
blocks per track* 

Upon return to this routine (at 
STEP4R+24) the newly-calculated BPT is 
compared to the previous BPT (SAVE+6). 
If the new BPT is greater, a branch is 
made to CBYPTKR to continue 
calculations* If the previous BPT is 
greater or equal, the routine continues 
to REDUCER. 



• MXBYPT (maximum number of bytes per 
track) 

• AMAX (size of work area) 

• NOP ASS (number of merge passes in 
phases 2 and 3) 

A branch is then made to PUTC02R. 



CKBYPTKR, AN- AS 



The maximum number of bytes per track (RPT) 
and the maximum work area (AMAX) are 
ca Icula ted and stored : 



REDUCER, AN-J1 



RPT = (RECBLK X BPT) 



AMAX = 2 (FILESZ/RPT)+3 



If the CALCAREA option is specified (switch 
CALSWR1 is on) a branch is made to 
USEORIGR. If the CALCAREA option is not 
specified and RECBLK is equal to one, the 
previous BPT is the optimum value for this 
set of calculations; a branch is made to 
SW1R to nullify the calculations just made 
and to recalculate all values using a lower 
OM. 



In the AMAX calculation, FILESZ is the 
number of records to be sorted, as given by 
the user. Three is added to include the 
checkpoint tracks. 

If the CALCAREA option is not specified 
(switch CALSWR2 is off) AMAX is compared to 
the work area given by the user (TRACK). 
If TRACK is equal to or greater than TRACK, 
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a branch is made to COMPGR. If AMAX is 
greater than TRACK, the routine continues 
to SW1R to nullify the calculations just 
completed. 

If the CALCAREA option is specified 
(switch CALSRR2 is on) , a branch is made to 
INCSWR where switches CALSWR1 and CALCSW3R 
are turned on, after which a branch is made 
to COMPGR, 



COMPGR, AN-B4 

G area constants are calculated: 

• GA1 (available core for sort) 

GA1 = 
CORESZ - (PHS1 + SBSIZE+BLKSIZ+ SUPER* LEND 

• GA2 (number of sort blocks, plus an 
8-byte tag for each record in the sort 
block, in GAD 



GA2 = 



GA1 

SBSIZE+8(SBSIZE/CFPL10) 

Note: The value of the denominator used in 
this calculation is stored in 
SBSZPTAG for later use. 

* GAREA (number of bytes in a phase 1 
sequence, excluding tag area, in GAD 

GAREA = GA2 X SBSIZE 

* GAREA1 (number of bytes in a phase 1 
sequence, including tag area, in GAD 

GAREA1 = SBSZPTAG X GA2 



ENDGFR, AN-C4 



Additional constants are calculated for the 
ADDROUT run: 

» Final G (number of records per phase 1 
sequence) 

G = GAREA 



CFPL10 

B (number of records per sort block) 

B = SBSI2E 
CFPL10 

NOBLKG (number of sort blocks in G) 

NOBLKG = GAREA 
SBSIZE 

NOPASS (number of merge passes) 



File size (FILESZ) is divided by G 
and rounded high to obtain the maximum 
number of sequences. The OM is then 
multiplied by itself until a product 
equal to or greater than the number of 
sequences is reached. Each 
multiplication is counted, and the 
count is taken as the number of merge 
passes (NOPASS). If the number of 
sequences is less than the OM, NOPASS 
is made equal to one and phase 2 of the 
sort/merge program will be bypassed. 



The routine then branches to PUTCNSWR. 



PUTCNSWR, AN-M 



If the CALCAREA option is specified (switch 
PUTCNSWR is on) , a branch is made to CKRPT. 
If the CALCAREA option is not specified 
(switch PUTCNSWR is off) , a branch and link 
is made to COMBPT+4 (Chart AK) to calculate 
the maximum number of blocks per 2311 track 
(BPT) . Upon return to this routine (at 
PUTCNSWR+8) the calculated constants are 
saved : 



• OM (internal order of merge) 



• B (number of records per internal sort 
block) 



SBSIZE (internal sort block size in 
bytes) 

BPT (maximum number of internal sort 
blocks per 2311 track) 

G (number of records per phase 1 
sequence) 

GA1 (available core for sort) 

GAREA (number of bytes in a phase 1 
sequence, excluding tag area, in GAD 

GAREA1 (number of bytes in a phase 1 
sequence, including tag area, in GAD 

NOBLKG (number of sort blocks in GAREA) 

MXBYPT (maximum number of bytes per 
track) 

AM AX (size of work area) 

NOPASS (number of merge passes in 
phases 2 and 3) 
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CKRPT, AN-A2 



If switch CKRPT is on (unconditional 
branch) , it and switch PUTCNSWR are turned 
off and a branch is made to CKRPT1. If 
switch CKRPT is off (no-op) , it and switch 
PUTCNSWR are turned on and the routine 
continues to CKRPT1. 



CKRPT1, AN-C2 



The new RPT (number of records per 2311 
track) is compared with the previous RPT. 
If the previous value is greater, it and 
AMAX are saved as the optimum values 
calculated up to this point and a branch is 
made to CKRECBKR. If the new value is 
greater, a branch is made directly to 
CKRECBKR. 



hexadecimal OF (for example, and OM of 07 
is made F7) to signal future overlays that 
the calculated constants for this 
particular OM are nullified and cannot be 
used. 

If RECBLK is greater than one, a branch 
is made to REDUCER to recalculate constants 
for the current OM using a decreased 
RECBLK. This set of recalculated constants 
will be substituted for the nullified 
constants for the current OM. 

If RECBLK is equal to one and the last 
set of constants has not been calculated 
(OM>2) , the constants are to be 
recalculated using a lower OM. The OM is 
reduced by one, (as described under 
PUTC02R) and a branch is made to STEPIR. 

If RECBLK is equal to one and the last 
set of constants has been calculated 
(0M=2), a branch is made to OUTPT (Chart 
AD. 



CKRECBKR, AN-D2 



If RECBLK (number of records per block) is 
equal to one, switches CKRPT and PUTCNSWR 
are turned off and the routine branches to 
PUTC02R. 

If RECBLK is not equal to one and switch 
PUTCNSWR is off (no CALCAREA option), a 
branch is made to PUTC02R to reduce OM and 
recalculate constants. If RECBLK is not 
equal to one and switch PUTCNSWR switch is 
on (CALCAREA option specified), RECBLK is 
decreased by one and a branch is made to 
STEPIR to recalculate. 



PUTC02R, AN-F3 



A test is made to determine if the 
calculation just completed is the last 
(OM=2). If it is, a branch is made to 
OUTPT (Chart AL). If the calculation just 
completed is not the last and OM is greater 
than 4, OM is reduced by one and a branch 
is made to STEPIR to recalculate all 
values. When OM is equal to or less than 
4, the minimum sizes for phases 2 and 3 are 
used, OM is reduced by one, and a branch is 
made to STEPIR to recalculate all values. 



SELECT ORDER OF MERGE - AP, AQ 

This routine (overlay 9) selects the order 
of merge that produces the most efficient 
sort run on a time basis. The overlay 
utilizes: 

» Record length. 

• In put /output blocking. 
» User- given file size. 

» System model type. 

» Available I/O and disk work areas. 

Sort times are calculated for each 
possible order of merge. Each sort time 
consists of: 

• Machine process time. 

• Disk read and write time. 

• Seek time. 

Not all orders of merge are possible with 
any sort run becauses of disk work area 
limitations. 



SWIR, AN-D5 



The constants just calculated are saved but 
are not used. To accomplish this, the 
second byte of the OM is ORed with a 



DSORT009, AP-B1 



Base registers are initialized and a branch 
is made to BEGIN. 
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BEGIN, AP-C1 



The output block size (IBOC) is obtained 
from BLKSOZ and a test is made for 
merge-only run. If this is a merge-only 
run, the entire routine for selecting order 
of merge and calculating sort time is not 
required; a branch is made to FETC10 to 
fetch overlay 10. 

For a sort run, the input block size 
(IBIC) and sort record length (IRL) are 
obtained from BLKSIZ and INTPRL, 
respectively. For fixed- length records or 
an ADDROUT run, a branch is made to FIXED. 
For variable-length records, IRL is 
re- initialized with L5 (average length of 
input records) before branching to FIXED. 



FIXED, AP-H1 

Constants and registers are initialized: 

• MS (machine size) with CORESZ 

» LOWTM (lowest sort time) with LMAXNO 
(7FFFFFFF). 

• Registers 6 and 10 with zeroes. 

• SPDFAC (speed factor) with value 
according to machine model 

• FIOCS (time to execute IOCS) with value 
according to machine model 

The input blocking factor (BI) is then 
calculated and stored: 

(IBIC) input block size • 

(IRL) input record length 

For an ADDROUT sort, IRL is re- initialized 

to contain the total length of control 

fields (TLACFD) plus 10. The routine then 
continues to RETRY. 



stored. 
STBO. 



The routine then continues to 



STBO, AP-D2 

For tape input or for variable- length 
records, the routine branches to CLUB. 

For disk input and fixed-length records, 
the number of tracks necessary for the 
input (NRTIN) is calculated before 
continuing at CLUB: 

NRTIN = ( BPT1IP) X (BI ) * 
V 

♦Rounded high by adding 1 if any 
remainder. 

BPT1IP Input blocks per track. 

BI Input blocking factor. 

V user given file size (number of 

records to be sorted — 

FILESZ). 



CLUB, AP-G2 



For disk output with either fixed-length 
records or ADDROUT, a branch is made to 
TAGOUT. For tape output or variable- length 
records, the calculations at TAGOUT are 
bypassed by a branch to SPADE. 



TAGOUT, AP-K2 



The number tracks necessary for the output 
(NRTOUT) are calculated: 

NRTOUT = (BPT30P) X (BO) * 
V 



RETRY, AP-J1 



The trial order of merge is retrieved from 
SAVE table and tested for validity. If 
invalid, a branch is made to FINAL. For a 
valid order of merge, IBR (records in a 
sort block), G (size of internal sort 
sequence) , and BPT (sort blocks per track) 
are obtained from the SAVE table. Then 
IRPT (records per track) , MRTHWK (number of 
tracks required for half of work area), IBC 
(characters in a sort block), and BO 
(output blocking factor) are calculated and 



♦Rounded high by adding 2 if any 
remainder. 

BPT30P Output blocks per track. 

BO Output blocking factor. 

V FILESZ 



SPADE, AP-A3 



NRTOUT is stored and registers are 
initialized to estimate the total number of 
drives and tracks available for sort. 



6 2 IBM S/360 DOS Sort/Merge 



REP1, AP-B3 



STVSOM, AP-G3 



Table DEVTAB is prepared, using device 
numbers from the PUB table* DEVTAB 
contains a maximum of seven 4 -byte entries. 
The first two bytes of each entry contain a 
device number obtained from TABLEB. The 
second two bytes contain the total number 
of tracks available on the device. 



If the number of phase 1 strings (STRING) 
is less than the order of merge (OM) , a 
branch is made to FINAL; if not, the 
routine continues to B119. 



Note : TABLEB can contain more than one 
work area specified for the same 
device. DEVTAB accumulates the 
number of available tracks so that 
there is only one entry per device. 



B119, AP-H3 



The time required in phase 1 to read input 
is calculated. 



REPB, AP-C3 



The number of tracks for the work area on 
the first drive is accumulated and stored 
in DEVTAB +2. This function is repeated, 
incrementing the DEVTAB location , for each 
available drive. 



B126, AP-J3 



SKT2 is accumulated for use in the 
calculation of phase 2 seek time. (See 
TABLEF function. Chart AQ. ) B126 is 
repeated until the last pass, when the 
routine continues to B135. 



The number of tracks used for input and 
output are, estimated and the estimated 
total number of tracks used by the sort is 
accumulated and stored in NRTRKS. 



B135, AP-A4 



WRT (write time for phase 1, read and write 
time for phases 2 and 3) is calculated. 



B118, AP-D3 



B136, AP-B4 



The number of sequences (strings) produced 
by phase 1 is calculated and stored in 

STRING: 



The assumed limits for disk work area are 
determined and stored in LL1, LL2, LL3, and 
LL4. 



STRING 



V 
G 



♦Rounded high by adding 1 if any 
remainder. 



B170, AP-C4 



FILES Z (number of records to be 
sorted). 

Number of records in a phase 1 
string. 



Phase 2 seek time is calculated, using SKT2 
calculated at B126. Phase 2 process time 
is then calculated and added to SKT2. 



If V (number of records to be sorted) is 
less than G (number of records in a phase 1 
string), the value in L0WTM is reduced to 
indicate this condition and a branch is 
made to VLESSG. If V is not less than G, 
the routine branches to STVSOM. 



E181, AP-D4 



Phase 3 seek time (SKT3) is calculated. 
(See TABLEF function, Chart AQ. ) 
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S188, AP-E4, 



TABLEF, AQ-B2 



Phase 1 seek, process, and format time is 
calculated and accumulated as a sum of its 
components: RDT1 (phase 1 read time) f WRT 
(calculated at B135), SKT2 (calculated at 
B17Q), and SKT3 (phase 3 seek time). 



E200, AP-F4 



The lowest sort time (LOWTM) is determined 
by comparing the time just calculated to 
the previous calculated time* The lowest 
value is saved in LOWTM. 



VLESSG, AP-G4 



The contents of register ROM are saved in 
SAVROM (points to the parameters in SAVE 
table from which the time just calculated 
has been derived) , 



The TABLEF subroutine is used in the 
calculation of the seek time for each pass 
and for phase 3, A search of three tables 
(TABLE, TABLE2, and TABLE3) is made and, 
for each table a result (ANSI, ANS2, ANS3) 
is calculated using OM (order of merge), 
BPT (sort blocks per track), and CPST 
(number of cylinders per string), 



SEEKTM, AQ-G5 



The time for one seek (SKT) is calculated 
using various seek lengths (SK'LEN) , given 
the number of cylinders per seek. 



SKLEN>26 
SKT* = 



(SKLEN-26)X 6800 + 7700 
177 



SKLEN<26 but >4 

SKT = [ ((SKLEN-4)X2100)/22]+5600+SKT' 

SKL£N<4 

SKT - [(SKLEN X 2600) /4] +3000+SKT* 



FINAL, AP-H4 



When calculations are completed for the 
last order of merge, a branch is made to 
RESTOR; otherwise, the routine returns to 
RETRY, 



RESTOR, AP-H5 



The maximum file size (MFS) is calculated 
and stored. If a sort time has been 
determined, the appropriate SAVE table 
contents (determined by pointer in SAVROM) 
are moved to the respective location in the 
PHASE table. 

If no time has been determined, an error 
message is printed, 

If the CALCAREA option is specified, the 
optimum number of work area tracks is 
stored in TRACK, 



FETC10, AP-C5 



Overlay 10 is fetched. 



PRINT CONTROL CARD AND FETCH NEXT PHASE 
AR, AS 



When the PRINT option is specified in the 
SORT control card, this routine (overlay 
10) extracts and prints the information 
contained in the sort control cards. The 
constants that were calculated by the 
assignment phase are also extracted (from 
the phase table) and printed. The routine 
then checks for errors and type of run 
(sort or merge) , and fetches the required 
phase 1, 2, or 4 overlay. 

If errors are detected, messages are 
printed and, depending on the unit 
assignments explained in overlay 1 (Chart 
AA), the program either provides for 
operator correction of the error and job 
re- run, or cancels the job, 

For a merge- only run, the checkpoint 
record (phase tables) is written on disk 
and overlay DSORT401 of phase 4 is fetched. 

For a RESTART run (available for sort 
only) the old checkpoint record is read and 
tested and one of four phase 2 overlays is 
fetched: 

• ADDROUT/Fixedhlength records, 
OM 2~4.,..DSORT201 
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ADDROUT/Fixed- length records, 
OM 5-7....DSORT202 



TSTCALCS, AR-J1 



Variable- length records, 
OM 2-3....DSORT203 

Variable-length records, 
OM 4-6...,DSORT204 



If the CALCAREA option is not specified, a 
branch is made to NOCALCS; for a CALCAREA 
run, the branch is to PRTCALCS. 



An invalid checkpoint record is 
indicated by one of two error messages: 

* Invalid Restart (7D53D): indicates 
sort run was terminated before 
checkpoint was written by phase 1. 

* Invalid Restart (7D55A): indicates 
incorrect disk pack placement. 

For a sort run, the sort checkpoint 
record (phase tables) is written, and phase 
1 overlay DSORT101 is fetched. 



DSORT010, AR-B1 



The base registers are initialized and a 
branch is made to CKPRINT, 



PRTCALCS, AR-K1 



This routine extracts and prints the 
results of calculations made by the program 
for: 

• MINTRK - minimum number of work area 
tracks 

• TRACK - optimum number of tracks for 
work area 

• NOP ASS - optimum number of passes 

If this routine was entered as the 
result of the CALCAREA option and the PRINT 
option was not specified, a branch is made 
to EOJCALC. If the PRINT option was 
specified, the switch at EOJCALSW is turned 
on (unconditional branch) and a branch is 
made to NOCALCS. 



CKPRINT, AR-C1 



NOCALCS, AR-C2 



For a CALCAREA run, or for any other type 
run in which the PRINT option is specified, 
a branch is made to CCDESC. If neither the 
CALCAREA nor the PRINT option is specified, 
a branch is made to EOJ. 



A test is made to determine that at least 
one file is specified. For a merge-only 
run, the sort printer routine (BRCH) is 
modified at location Ml- The routine then 
continues at BRCH, 



CCDESC, AR-E1 



The job name and date are printed and a 
branch-and-link is made to PRNTCARD if the 
PRINT option is specified. If the PRINT 
option is not specified, a branch is made 
to TSTCALCS, 



BRCH, AR-E2 



The values given by the user (control 
fields, format code, size of sort, files) 
are extracted from the phase table starting 
at CF1LNG, The values are printed out (by 
successive BAL f s to PRTERR) and the routine 
continues at RE1, 



PRNTCARD, AR-G1 



The print operation is initialized and a 
branch and link is made to PRTERR, located 
in overlay 1, to print the heading, All 
the control card images are then printed 
(by successive BAL's to PRTERR), after 
which the routine links back to TSTCALCS. 



RE1, AR-F2 



The record type and record lengths are 
extracted from the phase table and printed, 
If only one length is given by user, an 
assumed L3 value is printed. For 
variable- length records, the values for LI 
through L5 are printed; for fixed-length 
records, only LI and L3 are printed. 
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INF, AR-G2 



The input block size, block type (or 
assumptions, for variable-* length records), 
input media, volume* s), and the CLOSE and 
OPEN options are extracted and printed. 



0UTF2, AR-H2 



The output block size, output media, and 
output OPEN and CLOSE options are extracted 
and printed* Then, if required, the user 
file name, address of user routine, and 
exit numbers for each phase are printed. 



save a pass. 
EOJZ. 



The routine then continues to 



EOJCALC, AR-C3 



This routine is entered upon completion of 
the assignment phase for a CALCAREA run. 
Register 9 is initialized with the address 
of message E80I. Switch EOJCSW is turned 
on i unconditional branch) to provide the 
correct exit after the end-of-phase message 
is printed. A branch is then made to 
MSG91A (Chart AS) to print 
end-of-assignment-phase message for the 
CALCAREA run. 



OPFLE, AR-K2 



EOJZ, AR-E4 



All other options given by the user, 
whether in the OPTION control card or other 
control cards, are extracted and printed. 



CONOUT, AR-A4 

Calculated constants are extracted and 
printed: 

« Computed maximum file size for sort. 

• Computed maximum input and output block 
sizes for sort/merge. 

• User- given number of tracks for 
sort/merge. 

• Sort /merge program origin. 

Note: If the assignment phase was 
terminated before all of the 
calculations were completed, and if 
the PRINT option is specified, some 
constants will be zero or will not 
be printed. 



EOJ, AR-B4 



If the switch at EOJCALSW 
that the PRINT option was 
CALCAREA run, a branch is 
With switch EOJCALSW off, 
branches to EOJZ for a me 
a sort, the sort block si 
increased by one for phas 
number of passes (NOPASS) 
pointers to the work area 
an attempt to improve the 



is on, indicating 
specified for a 
made to EOJCALC. 
the routine 
rge-only run. For 
ze (SBSIZE) is 
e 2 and, if the 
is odd, the 
are reversed in 
sort time and 



The checkpoint record number is updated, 
and locations NOBLKG+2 and NOBLKG+3 are 
initialized with output file label data and 
SYSLOG data, respectively. If no errors 
are detected at this poijrct, the routine 
continues at TSMERG. If errors are 
detected, a branch is made to ABORT in 
overlay 1 (Chart AA) . 



TSMERG, AR-G4 



For a merge -only run, a branch is made to 
WTCKMG; for a sort, the routine continues 
at TSREST (Chart AS). 



WTCKMG, AR-H4 



The checkpoint record is written for the 
merge-only run. If the PRINT option is 
specified, switch F4SW is turned on 
(unconditional branch) to provide the 
correct exit after the end-of-phase message 
is printed; a branch is then made to MSG91 
(Chart AS). 

If the PRINT option is not specified, a 
branch is made to FETCH4 to fetch the first 
overlay of phase 4. 



TSREST, AS-B5 



If this is not a RESTART run, a branch is 
made to WTCKPS; if a RESTART run, a 
branch-and-link is made to RDCKPR to read 
the previous checkpoint record. The 



66 IBM S/360 DOS Sort/Merge 



validity of the record is then tested and, 
if invalid, a branch is made to E0J3RT. 

If the previous checkpoint record is 
valid, a test is made for the PRINT option- 
If the option is specified, switch F2SW is 
turned on (unconditional branch) to provide 
the correct exit after the 

end- of- assignment- phase message is printed, 
and a branch is made to MSG91. If the 
PRINT option is not specified a branch is 
made directly to FETCH2. 



that were initialized earlier in the phase 
are now tested* The exit for each type of 
run, in the order tested, is: 



Switch on: 



Go to: 



i 

| EOJCSW 
| F4SW 
| F2SW 
I none 

t 



+- 



Run type: 



-* 



| E0JC1 | CALCAREA 

| FETCH 4 | MERGE | 

| FETCH2 | RESTART j 

| FETCH1 | SORT | 



WTCKPS, AS-B4 



E0JC1, AS-F1 



The checkpoint record for the sort run is 
updated and written on the specified 
device. If PRINT option is specified, a 
branch is made to MSG91 to initialize and 
to print the end-of-assignraent- phase 
message. If the PRINT option is not 
specified, a branch is made directly to 
FETCH1. 



This is the end-of-job for a CALCAREA run. 
If no errors are detected, the E0J macro is 
issued. If errors are detected, a branch 
is made to ABORT in overlay 1 (Chart AA). 



FETCH** f AS-G2 



E0J3RT, AS-E5 



The invalid- restart message is printed by a 
branch-and-link to ERROR in overlay 1. 
Then, depending on the unit assignments, 
the user may have the option to resume the 
run. If the user reply is IGNORE, the 
program will be re-entered at WTCKPS for a 
complete sort run; otherwise, the job is 
canceled. 



MSG91, AS- CI 



This location is entered at the end of the 
assignment phase, if the PRIOT option is 
specified, for merge-only, sort, or restart 
runs. Register 9 is initialized with the 
address of message E91 and a branch is made 
to MSG91A. 



The first overlay of phase 4 (DSORT401) is 
fetched for a merge-only run. 



FETCH2, AS-F3 



The appropriate phase 2 overlay is fetched, 
depending on the type of run for RESTART. 

• DSORT201 for ADDR0UT or fixed-length 
records, order of merge 2-4 

» DSORT202 for ADDROUT or fixed- length 
records, order of merge 5-7 

» DSORT203 for variable- length records, 
order of merge 2-3 

• DSORT204 for variable- length records, 
order of merge 4-6 



MSG91A, AS-D1 



FETCH1, AS-E4 



The end-of-assignment-phase message (E91 
for sort, merge-only, or restart, E80I for 
CALCAREA) is printed. The exit switches 



The first overlay of phase 1 (DSORT101) is 
fetched for a sort run. 
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INTERNAL SORT (PHASE 1) - 02 



Phase 1 initiates the sort operation, A 
modified internal merging technique sorts 
the input records into sequences and moves 
them to the disk work area. 

Phase 1 is divided into five overlays: 

• Overlay KDSORT101) - Initialization of 
the multi-volume (Exit 11 linkage) 
routine* 



There are basically two levels of 
sorting in phase 1* Level 1 builds 
sequences of two records each (doublets) 
from the records in G area. Two records at 
a time are compared to each other for high, 
equal, or low. The record selected is 
determined by the user-given sequence for 
each field (ascending or descending). The 
correctly- sequenced doublet is represented 
in a table by the addresses of the two 
records . 



Overlay 2 (DSORT102) - Read checkpoint 
and format-disk routine. 



Overlay 3 (DSORT103) - Initialization 
of input-data, interna 1-sort, and 
out put- data routines for disk or tape 
input. 



Overlay 4 (DSORT104) - Initialization 
of input data, internal-sort, and 
output-data routines for an ADDROUT 
type run. 



Level 2 merges the 2-record sequences 
into 4-record sequences in a second table. 
Again, the sequences are represented by the 
addresses of the records. The 4- record 
sequences are then merged into 8- record 
sequences in the first table. The merging 
continues between the two address tables 
until there are but two sequences left in 
either one of the tables (Figure 16, 
section 2) . The two remaining sequences 
are then merged with the records being 
moved from the input area to the output 
area. 



Overlay 5 (DSORT105) 
routine. 



End-of- phase 



The initialization routine modifies the 
sort program to perform a specific sort 
based on control information supplied by 
the user and processed by the assignment 
phase. It also: 

• Initializes compare instructions. 

• Defines the input/output record areas. 

• Relocates and/or deletes several 
routines so that the program occupies 
the least amount of main storage for 
each type of sort run. 

• Formats the tracks in the disk work 
area, based on the sort-block length. 

Phase 1 reads records from disk or tape 
into main storage until the input area (G) 
is filled. Each record can be located by 
the address of its leftmost byte (Figure 
16, section 1). 

During the sort operation, the records 
remain in their original positions in the 
input area; only the record addresses are 
sorted in tables to indicate the order in 
which the records are to be moved to the 
output area. 



The records are moved from the input 
area to the output area in the order in 
which their addresses appear in the address 
table (Figure 16, section 3). The output 
area can be either equal to G or a 
sub-multiple of G so that the sequence may 
be written in a blocked format on disk. As 
the output sort- block is filled, it is 
written in the disk work area at its 
calculated interleaved address. 
Interleaving is an arrangement of the disk 
work area, determined by the assignment 
phase, that minimizes disk seek-time in 
phase 2 and 3. 



After the sequence has been written on 
disk, the input volume or file is checked 
and, if more records are to be read, the 
input area (G) is refilled and the program 
returns to level 1. 



If all records in the input file(s) have 
been processed into sequences, the end of 
phase routine is executed. Constants are 
calculated and tables are updated for phase 
2. 



Figure 17 is a main-storage layout of 
phase 1 showing the five overlays. 
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Address 
Table 



Rec. Addr. 
LEVEL 1 



(040) 0013 
(170) 0010 
(381) 0016 
(427) 0019 
(002) 0031 
(079) 0028 
(1 32) 0022 

| Q56)JC)025_ 

Rec. Addr. 
LEVEL 2 



Note: Records shown in 

Section 2, LEVELS 1 and 2 only for 

illustration. 



Figure 16, Phase 1 Internal Sorting (Ascending Sequence) 
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INITIALIZATION ROUTINE FOR MULTI-VOLUME 
( EXIT 11 LINKAGE) - BA 



The multi- vol urne - exit 11 linkage is 
initialized according to the specifications 
set by the user in the sort control cards. 



completed* When the cylinder limits are 
reached, the CCHH bytes of the disk address 
are updated, and the process is repeated 
until the upper limit of the work area is 
reached. 



The specifications include: 

• File type (tape or disk input) 

• Label type 

1. Disk - standard labels with or 
without user additional labels 

2. Tape - standard labels with or 
without user additional labels, 
non-standard label s, or unlabeled 

• User options 

1. Alternate drive for tape input 

2. Rewind option for "open" or "close' 1 
times 



When the multi- volume (exit 11 linkage) is 
initialized, it is written on disk in the 
checkpoint track and the second overlay of 
the phase (DSORT102) is fetched. 

The format routine arranges the disk 
work area, cylinder by cylinder, for use 
with the interleaving technique* The 
address for each area (sort block) on disk 
is built from constants supplied by the 
assignment phase. The lower four bytes are 
based on the sort block length (Figure 18). 
The next four bytes (CCHH) are based on the 
lower limit of work area extents. 



INITEX11, BA-B1 



The label routine base register is 
initialized and a branch is made to 
LBLINIT. 



LBLINIT, BA-Cl 



The address of the checkpoint track and the 
user routine are obtained from the 
assignment phase table. Then, if the input 
file is on tape, a branch is made to 
INTAPE; if on disk, the routine continues 
to DSKINIT. 



DSKINIT, BA-D3 



The DTF table DSKDTF is initialized for 
disk operation and for user exit 11 (if 
specified). The routine continues at 
EOFINIT. 



Disk 
Address 



C 



10 Bytes 



2 Bytes ' 4 Bytes ' Lower 4 Bytes I 



EOFINIT, BA-F3 



The input file name and the EOF (end of 
file) routine address are inserted in the 
disk DTF table; a branch is then made to 
CHKFF. 



CCW 



t A 



in r 

I* 31 
o 



Data 
Address 



I 31 l O 

I a I o 

CQ c 

I TS | 3 



8 Bytes 



Figure 18. Disk Address Format 

The disk work area format is started, 
using the CCW's that were built for a 
cylinder from the disk addresses just 



INTAPE, BA-C4 



The tape input switch (MNLDSK) is turned on 
and the DTF table TAPDTF is initialized for 
tape operation. The multi-volume routine 
and the DTF table are initialized for type 
of labels (standard, non-standard, or 
unlabeled) and for user exit 11, if 
specified. The routine then continues to 
INIT32. 
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INIT32, BA-H5 



FORMGO, BB-F4 



The tape DTF table is initialized for the 
open and close rewind options and a branch 
is made to CHKPT. 



CHKPT, BA-G3 



The second checkpoint track is formatted 
and the initialized multi/volume routine is 
written. The next overlay of phase 1 
(DSORT102) is then fetched. 



After the format for a cylinder has been 
established, new disk addresses are placed 
in existing CCW's to organize the next 
cylinder. Processing continues until the 
format of the entire work area is 
completed* A branch is then made to FETCH. 



FETCH, BB-G4 



Overlay <* (DSORT10*!) is fetched for an 
ADDROUT run; overlay 3 (DSORT103) is 
fetched for all other runs. 



FORMAT ROUTINE - BB 



INITIALIZATION FOR DISK OR TAPE INPUT - BC 



The checkpoint record that was passed on 
from the assignment phase is read into main 
storage. Some of the data contained in the 
checkpoint record is then used to format 
the work area: 

* Work area extents (TABLEB from the 
assignment phase) 

* Blocks per track (BPT) 

* Sort block length (SBSIZE) 

IBV021, BB-B2 



A channel program is initialized and the 
checkpoint record is read. The routine 
then continues at FORMAT. 



FORMAT, BB-C2 



For an ADDROUT run, the branch at FETCH is 
initialized so that overlay 4 will be 
fetched. Constants BPT, SBSIZE, and TABLEB 
are obtained from the checkpoint record and 
inserted in FRMBPT, register XW0RK1, and 
WKTAB, respectively. If BPT is equal to 1, 
the format routine is bypassed by a branch 
to FETCH. If the BPT is 2 or more, CCW's 
are built to format a cylinder. 



After the disk work area has heen 
formatted, this overlay (DSORT103) reads 
the checkpoint record and initializes the: 

• Input routine. 

• Internal- sort routine. 

• Output routine. 

• End- of- phase routine. 

Input routine . The initialization 
routine determines which input routine is 
used for a sort run. Tape input routines 
are relocated to the area of the disk input 
routine. 

Internal-sort routine . Several 
constants and addresses are initialized; 

• G (number of records to be sorted). 

• Number of sort blocks in G. 

• Record length. 

• Location of address table. 

• Number of doublets. 

The compare chain sub-routine is 
initialized; it is then relocated 
regardless of the input type. The lower 
and upper limits of the main-storage input 
area (Figure 19) are calculated and stored, 
as is the start of output area. 
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Note: Not drawn to scale. 
Figure 19, Limits of Input Area 



Input Area 



Output routine * The seek and search 
CCW f s and CCB, and the DSHIFT table are 
initialized. 



IBV022, BC-B2 



The checkpoint record is read in at the end 
of the overlay and the routine continues at 

VLRINZ. 



VLRINZ, BOC2 



The variable- length address routine is 
initialized if one or more of the following 
routines are specified: 

* Variable- length input. 

* Data conversion. 

* User exit 12. 

The variable- length address routine is 
also relocated, and the compare chain is 
initialized to load addresses from address 
table 1. 

If user exit 12 is specified, the 
linkage to the user programming is 
prepared. The variable- length output 
routine is then initialized and relocated 
and the routine continues to INPTIZ. 



IBVAA1, BC-B3 



G, number of sort blocks in G, and record 
length (computed by the assignment phase) 
are relocated for use by the internal sort 
routine. The number of doublets is 
computed and saved in NRDUB. 

Constants supplied by the assignment 
phase are used to initialize the compare 
chain with the number of control fields and 
the displacement and length of each field. 
The compare string is relocated. 

If data conversion is specified, the 
conversion routine is relocated and 
initialized with the number of control 
fields and the location of the compare 
chain - 



FLMVGO, BC-F3 



For fixed-length input, the move routine is 
initialized with the record length. 



FLMVBC, BC-G3 



Using G supplied by assignment phase, 
calculations are made to determine the 
areas necessary for the address tables, the 
start and end addresses of the input area, 
and the sbart address of the output area. 



INPTIZ, BC-G2 



A test is made to determine the type of 
input (disk or tape). Disk input is 
initialized to process key, if any; tape 
input is initialized and the sub-routine is 
relocated at P1INBG. The routine then 
continues at IBVAA1. 



OUTIZ, BC-J3 



The output routine is initialized for 
interleaving. The disk address calculation 
routine is initialized to compute disk 
addresses for the sort run. The CCW and 
CCB are initialized, and the starting 
addresses for the first order of merge are 
calculated and placed in the DSHIFT table. 
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If variable- length records have been 
specified, the variable- length output 
routine is relocated to IBVMC3 and is 
initialized with the start address and 
upper limit of the output area. 



A branch is then made to DINMVA (Chart 
BD) to write the mainline in the checkpoint 
track area. 



INPUT ROUTINE FOR DISK OR TAPE 



BD 



The initialization routine of phase 1 
determines which input routine (disk or 
tape) is to be used for any specific run. 
In either case, a test is made for a full G 
area. The input area consists of G plus an 
overflow area that is used when the input 
blocks or records exceed the G area. When 
the G area is full, the current address 
within the input area is stored and the 
program branches to the sort routine. 

Disk or tape files were opened by the 
multi- volume routine at initialization 
time. 



P1INBG, BD-E1 



Note : This description is for disk input. 
For tape input, the tape— input 
routine (Chart BE) will have been 
relocated to P1INBG. 

When the end of a cylinder is reached , 
the address of the next cylinder is 
constructed (at DINJCY). If end-of-volume 
is reached, a branch is made to the 
checkpoint sub- routine, DINMVA. If neither 
condition exists, CCW* s are built (at 
DIBERE) for reading the count fields of the 
G records. The routine then continues to 
DIBLRD. 



DINMVA, BD-D4 



Phase 1 mainline is written onto the 
checkpoint track and the multi-volume 
routine (DSORT101) is read into main 
storage. After the multi -volume routine 
has been executed, it is written back onto 
the checkpoint track and the phase 1 
mainline is read into main storage. 



Disk input . Records are read from disk 
to the main storage input area until G is 
full. As the records are read, a check is 
made for an end-of -volume condition. After 
a record is read, the disk address of the 
next input record is built- This address 
may be on the same track or on the next 
track and/or cylinder. 

Tape input . Records are read from tape 
and checked for end-of -volume and full G 
area. Error records are bypassed, if so 
specified by the user. 

Fixed-length records with user exits, 
variable- length records, or records 
requiring data conversion have their 
addresses built one at a time as they are 
processed. 



INMOVE, BD-B1 



DIBLRD, BD-A2 



The read CCW is initialized with 
information supplied by the read count 
chain and records are read from the disk 
input area. If end-of -file is detected, a 
branch is made to the multi- volume routine 
via DINMVA. When G area is full, a branch 
is made to INEXIT. If end-of-cylinder is 
detected, or if G area is not full, the 
routine returns to P1INBG. 



IN FIN I, BD-H5 



This function is entered when the final 
volume of the final file has been read? it 
is used to calculate the final G. The 
number of doublets is determined and saved 
in NRDUB, and the end-of-input switch 
(IBVNEU) in the output routine is set so 
that the next overlay can be fetched at 
that time. 



Registers are loaded with start and end 
addresses of the input area and unsorted 
records are moved to the start of the input 
area. This function is also used to move 
variable-length records to the output area. 

Note ; This routine is not entered the 
first time through phase 1. 



If the output will consist of more than 
one block, a padding switch (PADSW) is set 
so that the last output block will be 
filled with F's (for ascending records) or 
with 0*s (for descending records). A 
branch is made to INEXIT for fixed-length 
records, or to 0NEXIT for variable- length 
records. 
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INEXIT, BD-J5 



The current end -of -input-area address is 
saved in INMAX and the record count is 
updated and saved in RDCNT. A branch is 
then made to P1LEV1 in the internal sort 
routine (Chart BF) . 



ONEXIT, BD-J4 



This sub- routine is entered for 
variable- length records and, if required, 
for user exit 12 and data conversion; 
initialization was done at VLRINZ (Chart 
BO. Addresses are built for all records 
in G area and a branch is made to P1LEV1 
(Chart BF). 



TAPE INPUT ROUTINE - BE 



TINBG, BE-B3 



For tape input, this routine is relocated 
at P1INBG. 

Tape records are read in and tests are 
made for end-of- volume, checkpoint records, 
errors, and full G area. Checkpoint 
records are by passed and the next record is 
read. If end-of -volume is detected, a 
branch is made to the multi- volume routine 
via DINMVA. If an error is deteced, the 
record is bypassed, if specified by the 
user (exit 13) , and the bypassed-record 
count is incremented and stored in INTBYP. 
If the bypass option is not specified, 
operator intervention is allowed. 

When the G area is full, a branch is 
made to INEXIT (Chart BD) . At 
end-of-file(s) time, the bypassed-record 
count is printed and a branch is made to 
INFINI (Chart BD) . 



INTERNAL SORT - BF 



Records in the G area are sorted and merged 
by the internal-sort routine, which is 
divided into levels 1 and 2. 

Note : The records are not physically 

sorted; their addresses are placed 
in sequence in address tables. In 
the following illustrations, records 
are shown in the address tables for 
clarification only . 



Level 1 . Addresses are built for two 
fixed- length records located in the G area. 
(The addresses for variable-length records 
were built at ONEXIT, Chart BD. ) The 
control fields of the two records are 
compared; the address of the winning record 
is placed in one of two address tables, 
followed by the address of the losing 
record- The two-address sequence in the 
address table is referred to as a "doublet" 
(Figure 20). The sequence that determines 
the winning and losing record is designated 
by the SORT control card. The 
address-building and sorting processes 
continue until the G records have been 
sorted into doublets. 
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Figure 20. Doublets 



Level 2 . Registers are initialized for 
the merge operation. The control fields of 
the records represented by the first 
address of each of the first two sequences 
(doublets) are compared. The address of 
the winning record is stored in the second 
address table. Comparison is then made 
between the record represented by the 
s econd address in the winning sequence and 
that represented by the first address of 
tne los incr sequence. Again, the address of 
the winning record is stored in the second 
address table (Figure 21). Merging 
continues until the end of one of the 
sequences is reached, at which time the 
addresses remaining in the alternate 
sequence are copied into the second address 
table. The process is repeated for the 
next two sequences and continues until all 
sequences from the first address table have 
been transferred to the second address 
table. (A sequence may be called a 
"string" when it contains more than two 
records . ) 
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Figure 21. 4 -Record Sequences 



Figure 23. Output 



When all sequences have been 
transferred, the address tables are 
reversed, and the 4 -record sequences are 
merged into 8- record sequences (Figure 22), 









A 


ddress Table 2 


















Record 


040 


170 


381 


427 


002 


079 


132 


156 


Record Address 


0013 


0010 


0016 


0019 


0031 


0028 


0025 


0022 




PI LEVI, BF-B2 



Addresses are built for G records 
(fixed-length) and doublets are created for 
processing in level 2. For variable- length 
records, addresses for all G records have 
been built at ONEXIT (Chart BD), 

A flag is entered at the end of the last 
doublet created from G and the routine 
continues to IBVIF4. 



Figure 22. 8 -Record Sequences 



IBVIF4, BF-C2 



The level 2 registers are loaded with 
branch addresses. A branch is made to 
IBVJH2 to get the address of next doublet 
from the address table and the routine 
continues at CMPCHN. 



CMPCHN, BF-D2 



When only two strings remain to be 
merged in an address table, control is 
passed to the output routine (Chart BG) . 
The records represented by the addresses in 
the remaining strings are then merged into 
the output area (Figure 23). 



Control fields of two records are compared; 
when the winning record is determined, a 
branch is made to STORM1 or STORM2, as the 
case may be- When two strings or less 
remain, the branches will be to ST01ZZ or 
ST02ZE and the program continues to the 
output routine < Chart BG) . 



STORM1-STORM2, BF-E3 



If the record from the doublet of string 1 
is the winner, STORMl is entered to store 
that address in the second address table. 
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The string base register is incremented by 
4 and if neither string is depleted, a 
branch is made to CMPCHN. 

Entry to ST0RM2 is made when the record 
from string 2 is the winner. The 
processing is the same as that for ST0RM1. 

If string 1 is depleted, but not string 
2, a branch is made to ST0RM2; if string 2 
is depleted, but not string 1, the branch 
is to ST0RM1. When both strings have run 
out, a branch is made to EXIT, 



EXIT, BF-G3 



The base registers for string 1 and string 
2 are initialized. When two strings are 
left in the input address table, the 
condition is indicated by a '03* in string 
2. A branch is made to CMPCHN for compare, 
then to IBVJC2. 



OUTPUT ROUTINE 



BG 



REDOUT, BF-H5 



If only one string remains in the input 
address table, the routine initializes to 
move that remaining string to the output 
area. A branch is then made to IBVJC2. 



The output routine merges the remaining two 
sequences into the output area instead of 
into an address table. When the output 
area is full, it is written in the disk 
work area. The DSHIFT table is used for 
storing the starting disk address of each 
sequence in a set. (A set is the number of 
sequences, equal to OM, order of merge, 
that the next phase will use in a merge.) 
The address for block 1 of a sequence is 
moved from the DSHIFT table to a storage 
area, where the addresses of succeeding 
blocks are built. As the blocks per track 
or cylinder number in an address is 
exceeded, the complement of the record 
number or cylinder number is added (Figure 
24). If the current disk address just 
built exceeds the upper work limit, a new 
work area extent is brought in from the 
WKTAB table, and a new current disk address 
is computed. 



After all blocks of a G are written on 
disk, the current disk address is saved in 
the lower section of the DSHIFT table. All 
other sections of this table move up, with 
the uppermost section having the starting 
disk address for the next sequence of the 
set. Control is passed to the input 
routine for the reading of the next G 
records. 



IBVJC2, BF-J4 



The input/output address tables are 
reversed and a test is made to determine if 
two or less strings remain in one of the 
address tables. If there are more than two 
strings remaining a branch is made to 
CMPCHN; if not, the last pass branches 
(ST01ZZ, ST02ZZ) are initialized before 
branching to CMPCHN. 



It is possible that the size of the 
input file is such that the final output 
block cannot be filled. When this is the 
case, a padding routine fills in the final 
output block so that it can be written in 
the disk work area. Ascending control 
fields pad a block with hex F's (1-bits) 
and descending control fields pad with 
zeros so that these will be considered 
"losing" records. A record count is kept 
so that padding records may be dropped in 
phase 3. 
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Figure 24, Address Creation 
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Example: 3-400 Character Sort Blocks in a Sequence 
6-Variable-Length Input Records 
Record 1 - 250 Bytes 
Record 2-100 Bytes 
Record 3-400 Bytes 
Record 4 - 200 Bytes 
Record 5-100 Bytes 
Record 6-200 Bytes 



Block 1 



i c 



Block 2 



Record 1 


Record 2 




^ Ann d..i.— 








■" 



Record 3 



- 400 Bytes - 



i r 



Block 3 



Record 4 



Record 5 



Unused* 



- 400 Bytes - 



* Record 6 is not outputed because it will not fit in the last block of the seque 



nee. 



Figure 25. Output, Variable-Lenqth Records 



The output routine for variable length 
differs in that it nay be necessary to 
split records between blocks (Figure 25). 



When the end of the file is reached, 
overlay 5 (DSORT105) is fetched. 



PADRTN, BG-E3 



Records are built as losing records, 
depending on the sequence specified in the 
SORT control card. Zeros are padded for 
descending sequence; 1-bits (hex F) for 
ascending sequence* The records are moved 
to the output area until it is full- The 
routine then continues to IBVMH4. 



MOPS1, BG-B2 



Records represented by the winning 
addresses are moved into the output sort 
block and a branch is made to IBVMC3. 



IBVMC3, BG-C2 



IB VMM, BG-F2 



An EXCP macro is issued and the output 
block is written on disk. The next disk 
address is created using BPT (blocks per 
track) and the work area limits. 
Calculations are checked for validity of 
tracks and cylinder. (For a more detailed 
description of address creation, see Figure 
24 and accompanying text. ) The routine 
then continues to IBVPB2. 



As long as the output area is not full, a 
branch is made to IBVME2 to restore the 
level 2 registers and to return to the 
location stored in XLINK (STOlZZ+8 or 
ST02ZZ+8). 



IBVPB2, BG-H2 



When the output area is full, G count is 
reduced by sort block count and tests are 
made for end of string and for padding 
records. If padding is not required, a 
branch is made to IBVMHU. Padding records 
are used for fixed-length records when the 
last sort block is not completely filled, 
The padding routine is entered by a branch 
to PADRTN. 



If the block count is equal to the order of 
merge times the number of blocks per 
string, it indicates the end of a set; a 
branch is made to IBV001 where the current 
disk address is saved (in OUTRD) as the 
starting address of the new set, A branch 
is then made to IBVNE4, If it is not the 
end of a set, the current block count is 
saved and the routine continues to IBWLR. 
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1BWLK, BG-J2 



END-OF- PHASE ROUTINE - BH 



For an end-of -string condition, a branch is 
made to IBVNDU where the DSHIFT table is 
initialized to use the next address for the 
start of the next sequence. The DSHIFT 
table is shifted so that the next starting 
address is located at the start of the 
table- The routine then continues to 
IBVNE4. 

If not the end of a string, a branch is 
made to IBVMF2 to restore registers and to 
return to the location in XLINK (ST01ZZ or 
ST0R2ZZ). 



IBVNE4, BG-J4 



A branch is made to INM0VE in the input 
routine (Chart BF) until the end-of-file is 
reached. Then the routine initializes for 
the next overlay and branches to FETCH 
where DSORT105 is fetched. 



When the end-of-file is reached, phase 1 
executes the compression routine and 
updates the checkpoint record. 

The compression routine checks the 
number of blocks in the last set of phase 
1. Gaps between blocks exist if the number 
of blocks do not equal order of merge times 
number of blocks per sequence (Figure 26). 
A table labeled IBVTAB stores the number of 
blocks for each sequence in the last set. 

For example, in Figure 26, the first 
sequence has three blocks , the second 
sequence has three blocks, the third 
sequence has two blocks, and the fourth 
sequence has no blocks. The count is 
stored in IBVTAB table. The compression is 
accomplished through the use of read and 
write commands. A read command is given 
starting with the first block address of 
the last set. IBVTAB indicates that there 
are three blocks in sequence 1. The write 
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command is also initialized with the 
address of the first block in the last set. 
Because both addresses are the same, no 
transfer of data is needed- The read and 
write commands are updated to the next 
block in the set. IBVTAB indicates that 
there are three blocks in sequence 2. Read 
command number 2 is given. Because there 
is a block written here and the write 
address is the same, no data is 
transferred. 

This process continues until the fourth 
sequence is reached. Table IBVTAB 
indicates that no blocks are written on 
disk for sequence H. The read command 
address is updated to the next block, while 
the write command address stays the same. 
As a read command is given for a block, the 
corresponding area in IBVTAB is decremented 
by one. Reading and writing continues 
until all sections in IBVTAB are zeros, 
indicating the end of compression of blocks 
in the last set. 

The final routine executed by phase 1 
computes constants and updates the 
checkpoint record. The constants computed 
for phase 2 are: 

• Number of passes. 

» dumber of sequences. 

• Number of blocks in last set. 

• Number of blocks in last sequence. 

• Number of records processed. 

The program then fetches the specified 
overlay of phase 2. 



EXITP1, BH-D2 

Constants are calculated for use in the 
next phases: 

• Number of passes (NRPAS). 

• Number of sequences (NRSEQ) . 

• Number of blocks in last set (PB2BKT). 

» Number of blocks in last sequence 
(NRBLS). 

• Number of records processed (RCDCNT). 

The checkpoint record is read in, updated 
with the constants just calculated, and 
written back on the checkpoint track. 



OV2INW, BH-E2 



An EXCP macro is issued and the 
end-of -phase messages are printed. The 
overlay number at the FETCH macro is 
initialized for the specified record type 
and order of merge - 



FETCH, BH-F2 



The specified overlay of phase 2 is 
fetched. 



IBV024, BH-B2 



INITIALIZATION FOR ADD ROUT RUN 



BJ 



Overlay 5 is relocated to the end of the 
mainline (the end of the output routine)- 



CMPRES, BH-C2 



If compression is required, the table 
IBVTAB is initialized with the number of 
blocks in each sequence of the last set. 
The program continues in the compression 
routine until the records in the last set 
are compressed. For a more detailed 
description of the compression routine, see 
Figure 26 and accompanying text. 

The routine then continues at EXITP1. 



The initialization routine for an 
ADDROUT-type sort run is similar to the 
initialization routine for tape or disk 
input. 

The CHNMVE routine is initialized with 
the number of control fields, their 
lengths, and their displacement within the 
record* 

The checkpoint record is updated with: 

* Input record length. 

• Number of control data fields. 

* Length of control fields. 

• Location of control fields. 
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IBV023 # BJ-B2 



IBVAA1, BJ-A4 



The checkpoint record is read in and placed 
at the end of phase 1, overlay 3. 



VLRINZ, BJ-C2 



If data conversion and/or exit 12 is 
specified, the routine is relocated- If 
user exit 12 is specified, these functions 
are bypassed by a branch to TAGINT. 



TAGINT, BJ-E2 



The move code in the CHNMVE routine is 
initialized with the number of control 
fields, their lengths, and their 
displacement within the record. 



The internal sort routine is initialized. 
The values for G, number of sort blocks in 
G, and record-length (computed by the 
assignment phase) are relocated for use by 
the internal-sort routine* The number of 
doublets is computed and saved in NRDUB. 



CHNCMP, BJ-B4 



Constants supplied by the assignment phase 
are used to initialize the compare chain 
with the number of control fields and the 
displacement and length of each field. The 
compare string is relocated. 

If conversion is specified, the 
conversion routine is relocated and 
initialized with the number of control 
fields and the location of the compare 
chain- For fixed- length input, the move 
routine is initialized with the 
record- length. 



L0CARE, BJ-C4 



TAGCHK, BJ-F2 



The checkpoint record is updated with: 

* Input record length — Total length of 
all control fields plus 10 for address. 

* Control data fields — Number of 
control fields. (If the control fields 
are in binary format, it is possible to 
reduce their number. For example, if 
there are three CF's to begin with and 
all are in ascending sequence, the 
number of control fields for the sort 
equals 1. If the first and third are 
ascending and the second is descending, 
the number of control fields equals 
three. ) 

* Length — The number of bytes in one or 
more successive control fields with the 
same collating sequence, if in binary 
format. 

* Location — The location of a control 
field is its relative position within 
the tag. (A tag is designated as the 
10- byte address followed by the control 
fields.) The first CF is located in 
the eleventh byte. 

The type of input is determined and the 
input routine is initialized for fixed- or 
variable- length records and key. 



Using G supplied by assignment phase, 
calculations are made to determine the 
areas necessary for the address tables, the 
start and end addresses of the input area, 
and the start address of the output area. 
The compare chain is initialized using the 
number, length, and displacement of control 
fields. 



OUTIZ, BJ-D4 



The output routine is initialized for 
interleaving. The disk address calculation 
routine is initialized to compute disk 
addresses for the sort run. The CCW and 
CCB are initialized, and the starting 
addresses for the first order of merge are 
calculated and placed in the DSHIFT table. 
A branch is then made to LBLCHK (Chart BL). 



INPUT ROUTINE FOR ADDROUT RUN - BK, BL 



The input routine is initialized and a 
block of records is read from disk. After 
a record is read into the input area, a tag 
is built consisting of the record disk 
address and the control field(s). when the 
tag or RAF area is full, control is passed 
to the internal-sort routine (Chart BF). 
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VARBLK, BK-B2 



DINMVA, BK-H2 



A test is made to determine if the input 
volume limit is exceeded and, if so, the 
end- of -volume switch is turned on and a 
branch is made to DINMVA. If the limit is 
not exceeded, the count of the first record 
is read (at RDCNT) to determine the length 
of the block. The routine then continues 
to P1INBG. 



Registers are restored and the end-of-file 
switch is turned on* A branch is then made 
to TAGMNL. 



TAGMNL, BK-K2 



P1INBG, BK-B1 



The ADDROUT input routine is initialized 
with disk input record address, main 
storage input area address, and RAF 
starting address. 



DINGET, BK-C1 



A block of records is read from disk and a 
test is made for end-of -volume. If 
end-of-file, a branch is made to the 
checkpoint routine at LBLCHK (Chart BL). 
If not end- of- volume, the routine continues 
to DINGUD. 



DINGUD, BK-El 



The sort mainline is initialized with the 
calculated G, the start address of the 
input area, and the start address of the 
RAF (record address file). 



TAGADR, BK-A** 



The 10- byte disk address portion of the tag 
(MBBCCHHRDD) is prepared: 

M = Pack number (0-244) 

BB = Bin number (always 00) 

CC = Cylinder number (0-199) 

HH = Head number (0-9) 

R = Number of blocks per track (1-50) 

DD = Zero for unblocked fixed-length 
records, or the displacement (in 
bytes) of the record within the 
block. 



The next input block is located on disk. 
For variable blocking, if end of cylinder 
is detected, a branch is made to VARBLK. 
For fixed-length or variable- length records 
when end of cylinder is not detected, the 
routine continues to DINLES. 



DINLES, BK-G1 



CHNMVE, BK-B4 



The designated control field (s) are moved 
from the input record to the RAF area, 
following the disk address just built. 



If end- of -extent condition is detected, a 
branch is made to DINMVA; if not, the 
routine continues to BLDADR. 



NXTREC, BK-C4 



BLDADR, BK-H1 



The next record 
to determine if 
been exceeded, 
made to the WLR 
message, bypass 
P1INBG. If not 
to TAGMNL. 



address is built and tested 
the maximum block size has 
If exceeded, a branch is 
routine to print WLR 
the record, and return to 
exceeded, a branch is made 



The record length is stored and the block 
size is incremented by the record length. 
Then, if the end of the input block has not 
been reached, a branch is made to NOEOB. 
If the end of the input block has been 
reached but end-of-file has not heen 
reached, a branch is made to LBLCHK; if 
end-of-file has been reached, a test is 
made for a full RAF area. If the RAF area 
is full, a branch is made to INEXIT (Chart 
BL); if not full, the branch is to TAGADR. 
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NOEOB, BK-E5 



INTERNAL SORT (ADDROUT RUN) - BF 



The record address is incremented by the 
record length and the next address for tag 
is calculated, A test is then made for a 
full RAF area; the resulting branches are 
the same as in the preceding block, NXTREC. 



The internal* sort routine for ADDROUT run 
is the same as that for disk or tape input. 
For details, refer to Chart BF and its 
narrative. 



OUTPUT ROUTINE (ADDROUT RUN) 



BG 



LBLCHK, BL-B3 



Phase 1 mainline is written onto the 
checkpoint tra^k and the multi-volume label 
routine (DSORT101) is read into main 
storage* After the mult i- volume routine 
has been executed, it is written back onto 
the checkpoint track and the phase 1 
mainline is read back into main storage. 



INFINI, BL-F2 



This function is entered when the final 
volume has been read; it is used to 
calculate the final G. The number of 
doublets is determined and saved in NRDUB, 
and the end- of -volume switch (IBVNE4) in 
the output routine is set so that the next 
overlay can be fetched at that time. 

If the output will consist of more than 
one block, a padding switch (PAD.SW) is set 
so that the last block will be filled with 
F's (for ascending records) or with 0*s 
(for descending records). 



The output routine for ADDROUT run is the 
same as that for disk or tape input. For 
details, refer to Chart BG and its 
narrative. 



MULTI-VOLUME, EXIT 11 LINKAGE - BM # BN 



The multi- volume routine opens, closes, or 
processes end-of-volume (EOV) routines for 
disk or tape input files and ADDROUT input. 
The file type may be: 

• Disk - standard labels without user 
labels. 

• Tape - standard labels without user 
labels, non-standard labels, or 
unlabeled. 

The routine, initialized according to 
user specifications, is called in from the 
checkpoint track to process the specific 
condition. After execution, the routine is 
written back on the checkpoint track and 
the mainline is read back into main 
storage. 



MNLDSK, BM-B3 



ONEXIT, BL-H3 



This sub- routine is entered for user exit 
12 and for data conversion, when required; 
initialization was done at VLRINZ (Chart 
BJ) . Addresses are built for all records 
in the G area and a branch is made to 
P1LEV1 (Chart BF) . 



For tape input, a branch is made to MNLTAP. 
For disk input, a test is made for 
end-of-file (EOF). If EOF, the selected 
bit is set in the disk DTF table and the 
routine continues at OPENA. 



OPENA, BM-D3 



INEXIT, BL-H1 



The record count is updated and saved in 
RCDCNT. A branch is then made to P1LEV1 
(Chart BF). 



When end-of-file condition is not indicated 
by the mainline, control is passed to the 
IOCS - OPEN routine. The next file to be 
processed is opened, standard and user 
labels are checked, and the end-of-file 
condition is tested. For EOF, a branch is 
made to ENDINP; otherwise, the routine 
continues at GETXT. 
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GETXT f BM-G3 



The log unit address and the upper and 
lower limits of the input area in main 
storage (extents) are saved- Control is 
then returned to the phase 1 mainline at 
DINMVA for regular sort or at LBLCHK for 
ADDROUT sort. 



table and a test is made for end- of- file 
(last volume). If not end-of-file, the 
volume number is saved and a branch is made 
to FEOVBR- For end-of-file, the volume 
table is shifted, the number of volumes in 
the next file is obtained, and the EOF 
switch (byte number 32) is turned on in the 
tape DTF. The routine then continues to 
FEOVBR. 



ENDINP, BM-G2 



FEOVBR , BN-F1 



A test is made to determine if the EOF was 
for the last input file. If so, the 
last-file flag and last-file switch are set 
and the routine continues to DCLOSE. 



For end-of -volume/end- of -file, or 
end-of-volume and not end-of-file with 
standard labels, a branch is made to 
ENDMAC. For end- of- volume /not end-of-file 
and not standard labels, the branch is to 
FEOVRTN. 



DCLOSE, BM-H2 



The current input file is closed. If it 
was not the last input file, the next file 
name is initialized in the Disk DTF and a 
branch is made to OPEN- If the last-file 
switch (LSTFLSW) is on, control is returned 
to the phase 1 mainline at DINMVA for 
regular sort or at LBLCHK for ADDROUT sort. 



FEOVRTN, BN-J1 



This routine uses the FEOV macro to force 
an end- of- volume condition- FEOV causes 
automatic volume switching- The log unit 
address is placed in a register and control 
is returned to the phase 1 mainline at 
DINMVA (Chart BD) . 



MNLTAP, BM-C4 



For the initial open, a branch is made to 
OPENT- For all subsequent entries for 
open, the branch is to EOVEOF (Chart BN) . 



OPENT, BM-D4 



ENDMAC, BN-G2 



Trailer labels are checked and, if 
end-of-file, a branch is made to EOFADDR; 
if not, the log unit address is placed in a 
register and control is returned to the 
phase 1 mainline at DINMVA (Chart BD) - 



The log unit address and file name are 
updated and placed in the tape DTF table. 
The tape is then opened by IOCS and control 
is returned at MNLLINK. 



MNLLINK, BM-H4 



EOFADDR, BN-G3 



If the EOF is for the last input file, the 
last-file indicator and last-file switch 
are set and the routine continues to 
NXTFILE- 



The log unit address is saved and control 
is returned to the phase 1 mainline at 
DINMVA (Chart BD) • 



NXTFILE, BN-H3 



EOVEOF, BN-B1 



The block count is placed in the tape DTF 



Control is passed to the IOCS-CLOSE routine 
to close the input file- If the last-file 
switch (LSTFILSW) is not on, a branch is 
made to OPENT (Chart BM). If the last-file 
switch is on, control is returned to the 
phase 1 mainline at DINMVA (Chart BD) . 
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PHASE 2 - EXTERNAL SORT OR MERGE 



Phase 2 consists of one of four overlays, 
depending on the order of merge and the 
input record type: 

• DSORT201 (4-way merge, f ixed- length ) , 
for an order of merge from 1 to 4 and 
either a fixed-length record sort or 
the ADDROUT option for fixed- or 
variable-length records. 



• DSORT202 (7- way merge, fixed- length) , 
for an order of merge from 5 to 7 and 
either fixed- length record sort or the 
ADDROUT option for fixed- or 
variable- length records. 

• DSORT203 (3- way merge, 
variable-length) , for an order of merge 
from 1 to 3 and variable-length 
records. 

• DSORT204 (6- way merge, 
variable-length) , for an order of merge 
from 4 to 6 and variable-length 
records. 

The overlay to be used in phase 2 is 
determined and called in by phase 1. Phase 
2 then calls in the corresponding overlay 
for phase 3. 

For the purpose of describing the 
program logic, this phase has been divided 
into two general categories: 

• Fixed-length records (7-way and 4-way 
merges), Charts CA through CM 

• Variable- length records (6- way and 
3-way merges), Charts CN through CY 



This introduction serves for both 
categories. Where necessary, duplicate 
figures and charts are provided (with the 
required differences, if any) so that each 
category is complete in itself. For 
example, there are two major- component 
charts (03) and two main storage layout 
figures. 



The sequences created in phase 1 are 
merged in phase 2. The order of merge (M) 
represents the number of input sequences 
that will be merged into one output 
sequence during each merge. The order of 
merge, which was determined by the 
assignment phase, is considered to be the 
fastest possible sort for the input file. 

Strings or sequences are read from the 
input portion of the work area, merged 
together, then written in the output 
portion of the work area. When all strings 
from the input portion of the work area 
have been merged into the output portion of 
the work area, a pass is complete. For the 
next pass, the input half of the work area 
becomes the output half and vice-versa. 

At the start of phase 2, pass 1, the 
sequences developed in phase 1 reside in 
the input portion of the disk work area. A 
test is made comparing the number of 
sequences (at the start of each pass) 
against the order of merge. If the number 
of sequences is equal to or less than the 
order of merge, the upcoming pass is the 
last one and phase 3 is fetched from the 
core image library- If the upcoming pass 
is not the last one, merging begins in 
phase 2. 
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Figure 27. Sort Blocks 



As stated in phase 1, sequences are 
placed in the disk work area in a blocked 
format* Block 1 is the lowest alphameric 
block of each sequence in an ascending 
order (Figure 27). 

The size of each input area depends on 
the type of record being processed. For 
fixed-length records, each input area is 



equal to the length of a block from the 
input portion of the disk work area, as 
illustrated in the merge example in Figure 
28. For variable-length records, each 
input area has an additional overflow area, 
immediately preceding it (see Figure 29, 
item 1). The overflow area is equal in 
size to the maximum logical record length 
minus one <LMAJC-1) . 



External Sort or Merge 



87 



Steps 
1 



Input 
( Portion) 




^^X Order of Merge (M) = 2 

Sequence — 1 Sequence — 2 

_Block— 1 Block— 1 



2 


4 


7 


13 




3 


8 


9 


18 




2 










-- -^ 








** 



















l r — —r — —i 1 i r 1 i 1 i t r 1 -i 

i ' 4 I 7 113 • l 3»8 19 118 I I 2 i 3 I I I 

• 1 _^_ I I J L_ _ J. 1 I I I L w , JL I I 



-i 1 i 1 i r — -T 1 — 

1 4 l 7 I 13 ' I I 8 I 9 ' 18 



L L L 3 _ L 4 L _ J 



Sequence — 1 



j- r — ^_ — r — n ,_ r r — _j — — ( f _j ( _ r — _j 

I ' I 7 " 13 I ' ' 8 • 9 I 18 ' '213' 4171 — *- 

i -L. L ^ J_ 1 I L _ _i -J. _J I J L J_. I 

*** -^_ ^ >£. ■ — ' 

r — r r — "t 1 1 — "i r — "f • • t~ — " i — t — • 

1 • 1 I 13 • ' • 8 I 9 I 18 ' I 8 I I I ' 

1 i- — i— — i— ^ J l JL.- I- J- 1 



Block— 1 



X. 



1 I 1 I 1 3 ' l 1 I 9 ' 1 8 1 1 ' 8 I 9 ' • I ' 

I -J- J_ I ^ J L» _J L—.-JL I I Ju. __ J L I 

1 t 1 t~ — 1 1 t r r 1 i 1 r 1 1 

• • 1 1 13 ' • < • l 18 1 ' 8 ' 9 1 13 ' 1 

I JL JL. L^._J I I L _ _A _, _J l_ . L _i_ _ _i I 



Steps 
8 



Sequence — 1 
Block— 2 



15 ' 17 1 38 1 42 18 ' 

- -^ _L -J JL_ I I J -1_ _ -L^, I 



1 r ~" "! r ' Block— 2 

18 19 I 13 I 15 ■ I- — #— — — 



• 1 17 > 38 I 42 1 1 1 I I 18 I I 17 

I J__ -_ J I I I I -I L.—-I L_ _ 



I I I 



10 



' 1 1 38 I 42 1 1 I I 1 18 I 

I L L _. _i. I 1 I L L _. — I 



17 I 18 I 



j l 



r. 



Sequence — 2 

Block— 2 
Steps J , , , 1 , , 1 , , — , , , , 1 1 

U 1 1 I 38 I 42 1 I 25 1 43 I 55 I 73 I I 17 I 18 I 25 I I 

I J L_ <_. J I I— -- J J i I I 1— L-^. -X 1 



12 • 1 I 38 I 42 » 1 1 43 1 55 I 73 1 I 17 I 18 ' 25 I 38 I — #*- 

I i_ J_^_J I I -L.—.J J 1 I J J L_^- J 

^ _ „ ^c ___ _ _ ___ — — "^ 

I 1 T" — T 1 -1 1 T 1 » < *• "• »~ 1 

I I I I 4? I I 



13 



42 



43 I 55 1 73 I I 49 I I I l 



Block— 3 



l 1 T T 1 I 1 1 T 1 " ' J ' 1 

14 J J j J J I _[_43 J_5£ j_73_ J l_ 4 i-I_ 43 J_ I I 

15 I 1 I I 'I 1 l 55 I 73 ' I 42 I 43 I 55 I • 



16 I 1 1 I 'I II I 73 I 



I 42 I 43 I 55 I 73 I — -»- 



Block— 4 



Figure 28* Phase 2 Merge 
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Next Block is Read in and the Split Record is "Compacted" . 
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Upon Reading the Next Block, the Split Record Becomes a Whole Record and Comparing 
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Figure 29. Variable- Length Record Input Area 



Because variable-length records are read 
and written in fixed-length blocks, phase 2 
(as well as phase 3) must process split 
records in the overflow areas. A split 
record is one which is divided into two 
portions with one portion in each of two 
blocks. Before such a record can be 
compared for merging, it must be rejoined 
or compacted. 

Phase 1, in outputting sequences, 
creates a split record ( identified by a 
hexadecimal C in the first four bits of the 
RLI) whenever a winning record cannot 
wholly fit into an output block. As many 
bytes as can fit into the unfilled portion 
of the block are moved. The record is then 
marked as a split record, the block is 
written, and the remaining portion is then 
moved to the start of the next block. 

In phase 2, each time a winning record 
is moved to the output area the next record 



in that input block is tested for a split 
condition. If it is a split record, the 
remaining bytes within the block ( a split 
record can be encountered only as the last 
record in a block) are moved to the 
overflow area; the split condition is 
erased and the next block of the sequence 
is read into main storage, compacting the 
split record. The merging process can then 
continue (see Figure 29, items 2, 3, and 

4). 

An example of a 2-way merge is 
illustrated in Figure 28. The first blocks 
(B.l) from each of the first M sequences 
(M = 2) are read from the input portion of 
the disk work area into the main storage 
input areas . 

Merging of the two sequences will begin 
with the first record of S1B1 (sequence 1 
block 1) being compared against the first 
record in S2B1. Working on an ascending 
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order, the lowest record is moved into the 
output area (Figure 30, step 1). 



A checkpoint record is updated at the 
start of each phase 2 pass* 
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Figure 30* Main Storage Output Area 

The second record in S1B1 is now 
compared against the first record in S2B1 
(Figure 28, step 2)* Again, the lowest is 
moved to the output area. Merging of 
records in the input areas continues until 
the output area is full, or until one of 
the input areas is depleted. 

When the output area is full, it is 
written in the output disk work area as a 
block of this new sequence. 

Figure 28, step 7, shows S1B1 (sequence 
1, block 1) being depleted as a result of a 
compare operation. The next sequential 
block of the sequence using that area is 
read in. Merging continues with the first 
record of S1B2 being compared against the 
appropriate record of S2B1 (Figure 28, step 
8). 

This cycle continues until all blocks of 
the M sequences now using the main storage 
input areas have been merged into one 
sequence. This is called a merge within a 
pass. 

At this time, the next M sequences are 
read in and merged as described. This is 
repeated until all sequences have been read 
from the input disk work area into main 
storage input areas, merged, and written in 
the output portion of the disk work area. 
This is the end of a pass. 



When an end- of- pass condition exists but 
the upcoming pass is not the last pass, the 
phase 2 mainline is reinitialized for a new 
pass. Pointers to the input and output 
work areas are reversed so that the output 
strings of the previous pass become the 
input strings for the upcoming pass. 



If the end-of-pass condition exists and 
the upcoming pass is the last pass, phase 3 
is fetched into main storage. 



The "compare tree" in Figure 31 
illustrates the compare operation used for 
merging. 

With M blocks in the input areas, the 
first record of each block is compared. 
When the winning record is found it is 
moved to the output area. Figure 31 shows 
four input areas, D, C, B, and A, filled 
with two records for each block. Using the 
compare tree and the input area example 1, 
record 1 of sequence D is compared against 
the first record of the other sequences and 
found to be the winning record. Because D 
was the winning record, the next compare 
must start again with D:C. 

In example two of Figure 31, the 
sequence C record is found to be the 
winner. The next compare must start again 
with D:C. In example three of Figure 31, 
sequence B is the winning record; in this 
case, because sequence C record was 
compared to sequence B record, C must be 
lower than record D. Therefore, the next 
compare is started at level 2, C:B. In 
example four, sequence record A is the 
winning record. Comparing is returned to 
level 1 (B:A) because sequence B record was 
already found to be lower than either 
sequence D or C record. 

The interleaved output technique that is 
used in this program is illustrated in 
Figure 32, using a 3-way merge as an 
example. In phase 1, the input file was 
sorted into a total of 38 sequences. The 
gap factor or interleave factor is, for the 
most part, equal to the order of merge. It 
may, however, be reduced in the later 
stages of a pass, 



90 IBM S/360 DOS Sort/Merge 



3rd Level Compare 



D:C 



2nd Level Compare 



1st Level Compare 





(D-Low) 



/ Return \ 
D ' to 3 Level ) 



Return \ 
B } to 1 Level I 
\ Compare / 




Example 

1 



Sequence D 




Output Record 
D— (8) 



C--(7) 



B— (6) 



A— (5) 



If D or C is moved to the output area, 3 compares are required before another record can be moved. 
If B is moved to the output area, 2 compares are required before another record can be moved. 
If A is moved to the output area, 1 compare ts required before another record can be moved. 



Figure 31 • Compare Tree 



External Sort or Merge 91 



Order of Merge = 3 
Total Work Area = Cyi — TR 
Cyl 15— TR 1 



Cyl 



© 



__ — ►Phase 2 — Pass 1 ■*- — ^ 



© 



TO 



Tl 



T2 



T3 



T4 



15 



T6 



17 



T8 



T9 



SI B1 



S2B1 



S3B1 



SI B2 



S2B2 



S3B2 



S4B1 



S5 Bl 



S6B1 



S4B2 



S5 B2 



S6B2 



S7 Bl 



S8B1 



S12 B2S16 B2S23B1 



S9B1 



S7B2 



S8B2 



S10B1 



S12B1 



S10B2S17 Bl 



S11 B2S18 Bl 



S13B1 



S14 Bl 



S15 Bl 



S9B2S13 B2 



S14 B2 



Sll B1S15 B2 



S16B1 



S21 B2S25 B2S32 Bl 



S22B1 



SI 7 B2S24B1 



S18 B2 



S19 Bl 



S21 Bl S25 Bl 



S19B2 



S20B2 



S27B1 



S26 B2S33 Bl S37 Bl 



S27 B2 



S22B2 



S31 Bl S35 B2 



S31 B2S38 Br 



S28 Bl 



S29B1 



S23B2S30B1 



S20B1S24B2S28 B2S35 Bl 



S29B2S36 Bl 



S26 Bl S30 82 



S36B2 



S32B2 



S34B2 



S33B2S37B2 



S34 B1S38 B2 




1 
1 


8 


9 


10 


11 


12 


13 


14 


15 




S2B2 


S3B5 


S4 B3 


S5 B6 


S9B3 


S10B1 Sll B4 


SI 3 B3 


r 


S3 B2 


SI B6 


S5 B3 


S6 B6 


S7 B4 


Sll Bl S12 B4 


SI 3 B4 


SI B3 


S2B6 


S6 B3 


S7 Bl 


S8 B4 


S12B1S10B5 






S2B3 


S3B6 


S4 B4 


S8 Bl 


S9 B4 


S10B2S11 B5 






S3B3 


S4B1 


S5 B4 


S9B1 


S7 B5 


Sll B2S12 B5 






SI B4 


S5 Bl 


So B4 


S7 B2 


S8 B5 


S12B2S10B6 




SI Bl 


S2B4 


S6 Bl 


S4 B5 


S8 B2 


S9B5 


S10B3 


Sll B6 




S2B1 


S3B4 


S4B2 


S5 B5 


S9 B2 


S7 B6 


Sll B3S12 B6 




S3B1 


SI B5 


S5 B2 


S6 B5 


S7 B3 


S8 B6 


S12B3S13 Bl 




SI B2 


S2B5 


S6 B2 


S4 B6 


S8 B3 


S9B6 


S10B4S13 B2 





Output of Phase 1 (Input to Pass 2) 

© _- 



TO 



Tl 



T2 



T3 



T4 



T5 



T6 



T7 



T8 



T9 



SI Bl 



S2B1 



S3B1 



SI B2 



S2B2 



S3B2 



SI B3 



S2B3 



S3B3 



SI B4 



S2B4 



S3B4 



SI B5 



S2 B5 



S3B5 



SI B6 



S2B6 



S3B6 



SI B7 



S2B7 



S3B7 



SI Bll S2B14S3B17 



SI B8 



S2 Bll S3B14S1 B18 



S2 B8 



S3 Bll SI B15S2 B18 



S3B8 



SI B12S2B15S3 B18 S4 B6 S4 B16 



SI B9 



S3 B9 



S2B12S3B15 



S2B9S3 B12 



SI B13 



SI B10S2 B13 



S2B10S3 B13 



S3B10S1 B14 



SI B16 



S2B16 



SI B17 



S2B17 



S4B1 



S5 Bl 



S4 B2 



S3 B16 S5 B2 



S4B3 



S5 B3 



Cylinder 7 After 

Pass 1 Compression ^- ~~ 

Phase 2 - ~~ ~ 
^ ^ — Pass 2 



8 



(Pass 1 Output is 
Pass 2 Input) 







S4 B4 S4 Bl 



S5 B4 S4 tfl4\ 



S4 B5 S4 B15 



S4 B8 S4 Bl 



S4 B9 



S4B10 



S4B11 



S4B12 



S4 B7 S4 B17 



SI Bl 



S2B1 



SI B2 



S2B2 



SI B3 



S2B3 



SI B4 



S2 B4 



SI B5 



S2 B5 



S2-B6 



SI B7 



S2B7 



SI B8 



SI B13 



S2B8 



S2B13S2B18S1 B24S1 B34S1 B44 



SI B9 



SI B14S1 B19 



S2 B9 



S2B14 



SI B6S1 Bll 



S2B11 



10 



SI B18 



S2 B19S1 B26 



SI B10S1 B15 



S2 B10S2B15 



SI B16 



S2B16 



SI B12S1 B17 



S2 B12S2B17 



SI B23S1 B33S1 B43 



SI B25 



SI B21 



S2 B21 



12 



SI B35 



SI B36 



SI B20S1 B27 



S2 B20S1 B28 



SI B22S1 B31 



S2 B22|S1 B32 

7" 



13 



SI B45 



SI B46 



SI B37 



SI B38 



SI B29S1 B39S1 B49 



SI B30S1 B40S1 B50 



SI B41 



14 



SI B53 



SI B54 



S1B47 



SI B48 



SI B51 



SI B42S1 B52 



15 



(Pass 2 Output is 
Pass 3 Input) 



(Pass 3 Output is 
Phase 3 Input) 



-**Phase 2 Pass 3 "** 

J 1 1 2 | 3 1 ^ 1 5J6J 7 | 8|9|l0lll|l2ll3|l4|l5|l6|l7|l8|l9|20|2l|22|23|24|25|26l27|28|29|30|3l|32|33|34|35|36|37|38| | \ 



/ V Y K--^ > ^_ 

Pass 1 

^ 1 ! 2 « 

PassV 
I 
\ 



_L 



JL_L 



->.--■*.- 



4 : 5 



- Am— _^_ _.A_ _ _„_ ^^V.___^._ — J\~~ 



« I 7 



- J**.- - ^~~ ~ "^ — ~ ^ ~" — J^~ — ^-J 



9 1 10 1 11 j 12 | 13 | 



-i 



Pass 3 

I 



\L 



Figure 32* Interleaving (3-Way Merge) 
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Note that a gap exists between S38B1 and 
S37B2 (Figure 32, section 1). Because the 
actual file size was not known in phase l f 
S37 and S38 were interleaved for a 3- way 
merge. After S38B2 had been written and 
the end- of- file detected, phase 1 
compressed S37 and S38 so that the gap 
would no longer exist* Sequences 37 and 38 
comprise the last merge of phase 2 # pass 1, 
and have an interleave factor of 2. The 
information concerning the last merge is 
passed on to phase 2 within the checkpoint 
record. Phase 2 merges the output of phase 
1 using the specified order of merge. 
Figure 32 shows that during the first pass, 
3 8 sequences are merged into 13 sequences. 
The interleave factor (F) for the first 12 
merges is equal to M; in the last merge, it 
is equal to two. The interleave factor is 
used for input and output and can vary 
individually. 

The factors which cause a reduction in 
CF) are: 



Input 



1. Number of sequences which will 

comprise the last merge of a pass. 
The last merge of a pass is 
initiated whenever the number of 
sequences remaining is equal to or 
less than the phase 2 order of 
merge, i.e., when S<M. 

• Output 

1. Number of sequences remaining on 
input after each set of M 2 input 
sequences have been merged into M 
output sequences. If, after 
merging M 2 input sequences, the 
number of remaining sequences is 
equal to or less than M 2 # a 
reduction in output interleaviing 
may have to be implemented. 

2. The number of blocks which comprise 
the last merge of a pass; that is, 
the total number of blocks that 
will be merged into an output 
sequence during the last merge of a 
pass . 

Figure 32, section 1, is the input to 
phase 2, pass 1. As the last merge of pass 
1 is detected, the input interleave factor 
is reduced from three to two for sequences 
37 and 38. The input interleave factor is 
two, while the output interleave factor is 
one. Pass 1 determines how many input 



sequences remain before attempting to merge 
M 2 sequences. In other words, pass 1 
checked when there were 3 8, 29, 20, 11, and 
2 sequences remaining on input. The first 
time that M 2 or less sequences were 
detected was when there were two sequences 
remaining. Output interleave factor is 
reduced to one, while the input factor is 
reduced to two. Pass 1 alerts pass 2 that 
there are four blocks in the last merge of 
pass 2, and that there will be a 1-way 
merge on input. 



Section 2 of Figure 32 is the output of 
pass 1, or the input to pass 2. The output 
interleave factor changes when the 
remaining sequences are M 2 or less, or when 
the remaining sequences equal four in this 
example. Output (F) is reduced to two. 
Note that output sequence 4 will contain 18 
blocks whereas sequence 5 will contain only 
four blocks. Output interleave factor for 
sequence 4 will be two only until the block 
count is one more than the total number of 
blocks in the last sequence. It will then 
be reduced to one for the remainder of 
sequence 4, For sequence 5, the output 
interleave factor goes back to two. Input 
interleave factor is reduced to one for the 
last merge, per information left by pass 1. 
Pass 2 output contains five sequences for 
two merge runs. Sequence and block count 
information of the last merge is passed to 
pass 3. 

Pass 3 starts with less than M 2 
sequences. Therefore, the output 
interleave factor starts at less than three 
(in this case, two). Pass 2 information 
contains the number of blocks for the last 
merge of pass 3. when the first sequence 
block count exceeds the total block count 
of the last merge, (sequences 4-5) the 
output factor for the first sequence 
reduces to one (Figure 32, section 
4: S1B24). The output interleave factor 
for the last merge is two ; the input factor 
starts at two, then is reduced to one. 

The next pass (4) is the final merge, 
performed by phase 3. The input interleave 
factor starts at two, then is reduced to 
one after the twenty- third input block of 
sequence 1. Output is written 
consecutively on the user-specified unit, 
tape or disk. 

Figures 33 and 34 illustrate phase 2 
main storage layouts for fixed- and 
variable-length records, respectively. 
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Figure 33, Phase 2 Main Storage Layout for Fixed-Length Records 
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PHASE 2 INITIALIZATION, FIXED-LENGTH 
RECORDS - CA 



then continues to the merge-merge routine 
(Chart CB). 



The checkpoint record, created by the 
assignment phase and updated by phase 1, is 
read into main storage to obtain 
information to be used in phase 2. This 
routine then initializes: 



* Merge-merge routine 

* Pass- pass routine 

* Sequence compare loops 

* Interleave address routine 
» Relocatable routines 

» Constants 

Merge- merge ,. Initialized according to 
the order of merge that was calculated by 
the assignment phase (from 2 to 7). 

Pass-pass . Initialized according to the 
order of merge to be used during phase 2. 
Input and output interleave factors, as 
well as pointers to the logical halves of 
the work area table, are stored at this 
time. 

Compare , All compares within the 
compare loops are initialized with the 
length and location of the first control 
data field. Branches are initialized for 
either ascending or descending sequence. 

Interleave address routine . Factors are 
calculated for the input/output disk 
address interleaving for phase 2. 

Relocatable routines . The equal routine 
is not relocated. However, if the equal 
routine is not required or if the records 
contain less than 12 control fields, the 
move routine is relocated by the required 
amount (the amount that the equal routine 
is shortened) . When control is returned by 
the relocator, initialization continues and 
the pass-pass routine is written out on the 
2311 checkpoint track as record 2. 
Subsequently, it is brought into main 
storage only when an end-of-pass condition 
exists. 

The next step is to calculate or 
allocate the input/output areas to be used 
in the merging process. The number of main 
storage areas needed is equal to the order 
of merge plus one. Each area is equal to 
the sort- block size. The input /output 
channel programs are then initialized with 
the number of bytes to be transferred 
during an I/O operation (number of bytes is 
equal to the sort-block size). The program 



INTPH2, CA-B2 

The base register (register 11) is loaded 
with the starting address of phase 2. This 
address is obtained from CKPCCB+8. 
Registers 2 and 3, which were loaded at the 
end of phase 1, are stored: 



Reg. 



Contents 

Logical unit 
address of 
device where 
checkpoint is 
written. 



Disk address 
of checkpoint 



Stored in 

1. CCB for taking 
checkpoint at 
every pass 
(RSTCCB). 



2. CCB for reading 
checkpoint 
(CKPCCB). 

3. CCB for reading 
and writing the 
pass-pass rou- 
tine (PPCCB). 

1. Location CHECKP, 
for updating 
checkpoint re- 
cord and for 
passing this 
address to 
phase 3. 

2. Location CHHR, 
current disk 
interleave ad- 
dress. Used 
only to read the 
checkpoint record 
for initiali- 
zation. 



RCHKPT, CA-C2 



An EXCP macro is issued and the checkpoint 
record is read into location PASSNO. When 
the read operation is completed, the 
routine continues to RDCPOK. 



RDCPOK, CA-D2 



A test is made to determine if the equal 
routine is required (more than one control 
field per record). If so, a branch is made 
to COMPIT; if not, the branches in the 
mainline compare loops are initialized to 
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bypass the branch-and-link to the equal 
routine when two equal records are 
encountered. 



COMPIT, CA-F2 



statement, the input for phase 3 could be 
in the first half of the work area (based 
on the number of passes calculated by phase 
IK When this condition exists, an extra 
pass must be made so that the phase 3 input 
will be in the second half of the work 
area. 



The length and displacement (location 
within record) of the first control field 
are OR'ed into the compare instructions in 
the mainline compare loops. The 
instructions that determine the branching 
conditions in the compare loops are then 
initialized for ascending or descending 
sequence. 

The mainline is then initialized for the 
record length (from SORTL) , which is equal 
to either the input record length (LI) 
specified in the RECORD control statement 
or, if the ADDROUT option is specified, to 
ten plus the total length of all control 
fields (CF + 10). 

The order of merge (M) and blocks per 
track (BPT1) are obtained from the 
checkpoint record and stored in constants 
PH2IOM and BPT, respectively. Registers 
are then initialized for calculating 
interleave factors for disk addresses. 



DIVAGN, CA-H2 



OUPTOK, CA-D3 



The physical limits of the work area are 
obtained from the checkpoint record 
(LOGPHY) and placed in the LIMITS table. 
The move routine and the equal routine 
indicator bits are set in RLCOND and a 
branch is made to the relocator routine 
(Chart FA) . After the equal routine is 
included (if required) and its length is 
determined, the move routine is relocated, 
if necessary, and control is returned to 
this routine at START. 



START, CA-F3 



The pass-pass routine is initialized with 
the starting address of the phase 2 input 
and output areas in main storage. This 
address, which will later be the address 
into which the checkpoint record is read, 
is obtained from location RLISA after the 
relocator routine is executed. 



The interleave factors are calculated by 
dividing the order of merge by the sort 
blocks per track. The quotient is stored 
in location NQUOT and the remainder in 
location NRMDR- The order of merge is then 
reduced by one and the next factors are 
calculated and stored adjacent to the 
first. This process is repeated for a 
number of times that is equal to the order 
of merge. These factors will be used by 
the interleaved disk address routine; the 
quotients for calculating the head or track 
numbers, the remainders for calculating the 
record numbers. 

The merge-merge routine is initialized 
with a switch (at WAY4 ) for a specified 
order of merge for phase 2. 

The pass- pass routine is then 
initialized with indexing factors (from 
POINT I) that point to the logical halves of 
the work area table. 

A test is made to determine if a copy 
pass is required in phase 2. If the user 
has specified that the output file is to be 
written in the first half of the disk work 
area, and if an inaccurate file size has 
been specified on the SORT control 



If the sort blocks per track (BPT) is 
equal to 1, the second half of the work 
area was not formatted by phase 1. When 
such is the case, instructions are now 
modified so that pass 1 of phase 2 will 
format the second half of the disk work 
area, which is the pass 1 output portion. 

The pass-pass routine is then written on 
the checkpoint track as record 2. 



CPIOAS, CA-B4 



Constants for phase 2 input and output 
areas are now calculated. These are: 

• ABEGIN through GBEGIN - Starting 
addresses of input areas A, B, C, D, E, 
F, and G (as required by order of 
merge) . 

• AEND through GEND - Ending address of 
input areas A, B, C, D, E, F, and G (as 
required by order of merge). 

• OBEGIN - Starting address of output 
area. 
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BYWCKD, CA-C4 



This instruction is a no-op except when the 
BPT is greater than 1, in which case a 
branch is made to NOWCKD. When BPT = 1 and 
the format must be established for the 
output portion of the disk work area, the 
routine allocates the output count field 
next to the output area and increases the 
output block count by eight. 



NOWCKD, CA-E4 



The ending address of the output area 
(OUTEND) is calculated and stored- The 
read and write CCW's are then initialized 
with the input and output data counts and a 
branch is made to the merge-merge routine 
(Chart CB). 



MERGE-MERGE ROUTINE, FIXED- LENGTH RECORDS - 
CB 



The merge- merge routine initializes the 
mainline to merge the next set of input 
sequences into one output sequence. A set 
is equal in number to the OH (order of 
merge) calculated by the assignment phase, 
except during the last merge of a pass when 
a set may have less sequences than the OM. 

The functions performed by this routine 
vary with the conditions at time of entry. 
These conditions are: 

* End- of -pass , which occurs (1) at the 
start of phase 2 and (2) each time all 
the input sequences have been merged 
into output sequences. For example, if 
phase 1 output is 64 sequences and the 
OM is 4, and end-of-pass condition 
would exist (1) at the start of phase 
2, (2) when 64 input sequences have 
been merged into 16 output sequences, 
and (3) when the 16 new input sequences 
(the output from the previous pass) 
have been merged into 4 new output 
sequences. 

* End-of-merge with more than M 2 input 
sequences remaining. 

* End-of-merge with M 2 or less input 
sequences remaining. 

* End-of-merge with M or less input 
sequences remaining (which signifies 
that the upcoming merge is the last one 
of the current pass). 



The functions performed for each 
condition are: 



End-of-pass . The last-merge switches in 
the input and output routines are turned 
off and a branch is made to the pass-pass 
routine, when control is returned to this 
routine, there would no longer be an 
end-of-pass condition; at this point, it 
would be either (1) end-of-merge with more 
than M 2 sequences or (2) end-of-merge with 
M 2 or less sequences. These functions are 
described in the following paragraphs under 
their respective headings. Note that the 
only function that will not be performed in 
an end-of-pass condition is the shifting of 
the output disk address table. This table 
is never shifted before the first merge of 
a pass. 



End-of-merge with more than M 2 
sequences . The mainline is re- initialized 
for the order of merge calculated by the 
assignment phase and the number of input 
sequences is reduced by a number equal to 
the order of merge. The number of merges 
to be done before new output interleave 
factors are implemented is reduced by one. 
Then the output disk address table is 
shifted to obtain the starting address for 
the next output sequence. 



End-of-merge with M 2 or less sequences . 
If this is the last merge of a pass, the 
functions performed are discribed in the 
next paragraph. If not the last merge, the 
mainline is initialized with new interleave 
factors to be used in computing the disk 
output addresses for the remainder of the 
pass. The output sequences created from 
this point on will become the input 
sequences for the last merge of the next 
pass. 

End-of-merge with M or less sequences . 
when this condition is reached, it is the 
last merge of a pass. The input interleave 
factors are changed and the end-of-pass 
switch is turned on. The program will then 
continue to the pass-pass routine at the 
completion of the last merge. 



MMPP2, CB-B3 



The end-of-merge switch (MMPP1 in the 
interleave factors routine. Chart CM) is 
turned off to remain off until next time an 
end-of-merge condition is detected. 
Turning off switch MMPPl consists of 
activating the branch to the move routine. 
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MMPPS, CB-C3 



If this routine is being entered on an 
end-of-pass condition, a branch is made to 
LM1234. For an end- of -merge condition, the 
end-of-sequence indicator (hexadecimal EF) 
is cleared from the end of the output area 
and registers are initialized to open the 
mainline and fill the input areas 
(registers SAVEA through SAVED, depending 
on OM). 

The input sequence counter (SR) is 
tested to determine if the next merge will 
be the last one of the pass (SR<OM). If 
not, a branch is made to WAY 4; if so, the 
routine continues to REDUCEI. 



conditions, new output interleave factors 
are to be implemented and the routine 
continues to REDUCEO. As long as the count 
in MAXFAC is not zero, the count is 
decremented by one and the routine branches 
to NOCHG. 



REDUCEO, CB-E2 



Instructions at ORMDR and OQUOT are 
initiialized with new output interleave 
factors, which have been pre- determined by 
the pass- pass routine- Continue to LMOSW. 



LMOSW, CB-F3 



REDUCEI, CB-C2 



Instructions at IRMDR and IQU0T are 
initialized with new input interleave 
factors for the last merge. The 
end-of-pass switch at MMPPS is turned on 
(it will be turned off for the next pass in 
the pass-pass routine) and the routine 
continues to LM1234. 



At the end of a pass, the output interleave 
switch is turned off (LMO in the output 
routine, Chart CD. This switch had been 
turned on (branch 00) during the pass when 
the number of input sequences remaining was 
equal to or less than M 2 (when the count in 
MAXFAC was reduced to zero). After switch 
LMO is turned off, a branch is made to 
ENDPAS if it is the end of a pass; 
otherwise, the routine continues to NOCHG. 



LM1234, CB-D3 



One of two courses of action is taken at 
this point: 

* Start of last merge - Turn on last 
merge input interleave switches (LM1 
through LMn, depending on OM) and 
continue to WAY4-4. 

• End of pass - Turn off switches LM1 
through LMn and branch to LMOSW. 

At WAY4-4, the pass-pass routine has 
inserted an instruction that initializes 
the mainline with the order of merge that 
is to be used during the last merge of a 
pass. 



ENDPAS, CB-H3 



At the end of each pass, as well as at the 
start of phase 2 (which is considered an 
end-of-pass condition) , the pass-pass 
routine is read into the main storage I/O 
areas by channel program PPCHPG. The 
program then branches to EXECPP in the 
pass-pass routine, executes the routine, 
and returns control to this point in the 
merge-merge routine. The channel program 
then writes the pass-pass routine back on 
the checkpoint track in the work area and a 
branch is made to MMPPS+U to start merging 
in the new pass. 



NOCHG, CB-H4 



WAY4, CB-E4 



The input sequence counter (SR) is 
decremented by a factor equal to the order 
of merge. Location MAXFAC is then tested 
to determine if the output interleave 
factors are to be changed (see Appendix A 
for description of MAXFAC contents). When 
the count in MAXFAC is at zero, it 
signifies that M 2 or less input sequences 
remain to be merged. Under these 



For each new merge within a pass, the count 
for MAXFAC (which was just decremented at 
REDUCEO-4) is stored back in MAXFAC. 
Except for the first merge of every pass, 
the output disk address table (ORADDR) is 
shifted to give the starting disk address 
for the new output sequence. The output 
sequence block counter (LMSTRG) is 
re-initialized with a count equal to the 
number of blocks contained in the sequences 
which comprise the last merge of the pass. 
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This counter is used at LMO in the output 
routine to detect when the output 
interleave factors should be reduced* The 
program then branches to USTOPA to open the 
mainline compare routine for sequence A. 



TAKECP, CC-C2 



The checkpoint record is read into the 
first 316 bytes of the phase 2 input /output 
areas. This address was obtained from 
RLISA during the initialization routine. 



P ASS-PASS ROUTINE, FIXED-LENGTH RECORDS - 
CC 



At the beginning of each phase- 2 pass f the 
pass-pass routine is read from the 
checkpoint track into the main storage 
input/output areas at location EXECPP. The 
routine first reads the checkpoint record , 
updates it, and restores it to the 
checkpoint track. It then computes the 
initial disk addresses for M sequences for 
both input and output. The two pointers to 
the logical halves of the work area table 
are reversed so that initial disk addresses 
can be computed at the beginning of the 
next pass. Next, the interleave factors 
are restored to their original values, 
which were computed during phase 2 
initialization (order of merge divided by 
BPT). The number of the pass being entered 
is listed on SYSLOG. If the upcoming pass 
is the last one, a switch is set to enable 
job control to fetch phase 3 into main 
storage. 

The pass- pass routine then calculates 
the interleave factors to be used (1) 
during the last merge of the pass for input 
and (2) during the last set of merges for 
output (when M 2 or less input sequences are 
merged into M or less output sequences) . 
The merge- merge routine is initialized with 
a switch that determines the order of merge 
during the last merge of the pass. 

At the end of the pass-pass routine, 
control is returned to the merge-merge 
routine which writes the pass-pass routine 
back on the checkpoint track (record 2). 



EXEC PP. CC-B2 



The pass- pass routine is entered each time 
the entire file has been passed through or 
merged into a new set of sequences. It 
initializes phase 2 for the upcoming pass 
(except the last). 

The end-of-pass switch (MMPPS in the 
merge-merge routine), is turned off (branch 
00) and the routine initializes to read the 
checkpoint record into storage. 



CKPTOK, CC-D2 



The checkpoint record is updated with: 

1. A decimal integer representing the 
phase 2 pass number (PH2PAS) 



2. The number of passes remaining (NOPASS) 



3- The number of sequences to be merged 
during the upcoming pass (NSR) 



4. The number of sort blocks that comprise 
the last merge of the pass (LMBLOK) 

5. The number of sort blocks contained in 
the last sequence of the pass (MERGED 

6. Two hexadecimal pointers that reflect 
the logical halves of the work area 
(POINTL). 

The updated checkpoint record is then 
written back on the checkpoint track. 



CPOADR-8, CC-F2 



The initial disk addresses for the input 
and output sequences of the upcoming pass 
are computed for a maximum order of merge 
(four or seven, as the case may be). The 
addresses are stored in ARADDR-GRADDR for 
input, and starting at ORADDR for output. 
As each initial address is calculated, two 
values are extracted from the work area 
table: 

1. An index value (multiple of 12) , or 
pointer to the work area table 
(LIMITS), 

2. The logical unit address pertaining to 
the address. 

These values are placed adjacent to the 
disk address in the table. 
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SHTPTR, COG 2 



The two hexadecimal pointers to the logical 
halves of the work area table are reversed. 
The input area for the current or upcoming 
pass becomes the output area for the next 
pass, etc, , alternating between the two 
halves throughout the phase. 



is reduced are stored in IRMDRl+1 and 
IQU0T1+1. 

The merge -merge routine is then 
initialized with the order of merge to be 
used during the last merge of the pass. 
This consists of inserting one of seven 
possible instructions (which are listed 
beginning at LASTM) at WAY4-4 in the 
merge-merge routine. 



NEWITL, COH2 



OLEAVE, COE3 



The interleave factors to be used during 
the pass are calculated (M/BPT = Q + R) and 
stored at IRMDR+1 and IQUOT+1 for input and 
at ORMDR+1 and 0QU0T+1 for output. These 
factors are used until it is determined 
later in the pass that they are to be 
changed. 



NEXTPASS, CO J 2 



If the upcoming pass is the last one, the 
switch at NOTLAS is made a no-op to enable 
the pass-pass routine to fetch phase 3 into 
main storage. Until such time* NOT LAS 
remains a branch to ENDPAS in the 
merge-merge routine (Chart CB) . The number 
of the upcoming pass (whether for phase 2 
or phase 3) is then printed out: 



•7DB1I PHASE 2 f PASS nn' 
or '7DC1I PHASE 3, PASS nn f 



ILEAVE-10, CC-B3 



The number of merges to be performed during 
the next pass before the output interleave 
factors are to be changed is now calculated 
and stored in MAXFAC. The output 
interleave factors to be used when MAXFAC 
is reduced to zero (when S<M 2 ) are stored 
in REDUCEO+1 and REDUCEO+5. These are two 
instructions at label REDUCEO in the 
merge-merge routine that will place these 
output interleave factors in ORMDR+1 and 
OQUOT+1, respectively, when MAXFAC=0. The 
reduced output interleave factors to be 
used when the order of merge is reduced are 
stored in 0RMD.R1+1 and 0QU0T1+1. 



NOTLAS, CC-F3 



As noted in the text under label NEXTPASS, 
this location is a branch to ENDPAS in the 
merge-merge routine until it is determined 
that the upcoming pass will be the last 
pass. NOTLAS is then made a no-op and the 
routine assembles and writes the constants 
for phase 3 on the checkpoint track and 
fetches phase 3 into main storage. 



The number of output sequences to be formed 
in the upcoming pass is calculated (NSR). 



Note: 



The output sequences in this pass 
will be the input sequences for the 
next pass . 



INI TOM, CC-C3 



The input interleave factors that will be 
used in the last merge of the pass (when S 
< OM) are now calculated and stored in 
REDUCEI+1 and REDUCEI+5. These are two 
instructions at label REDUCEI in the 
merge-merge routine that will place these 
input interleave factors in IRMDR+1 and 
IQUOT+1, respectively, when the last merge 
is entered. The reduced input interleave 
factors to be used when the order of merge 



INPUT ROUTINE, FIXED-LENGTH RECORDS - CD 



This routine fills the input areas in main 
storage with records from the input portion 
of the disk work area. At the beginning of 
a merge, all the input areas are filled and 
the compare loops are initialized. 
Subsequently, the input areas are refilled 
individually as they are depleted and, as 
input sequences are depleted, the compare 
loops are closed off one by one. 

The maximum number of input sequences (A 
through G f or a 7- way merge or A through D 
for a 4-way merge) are called in. As each 
block is read into its input area, the disk 
address of the next block in that sequence 
is calculated by a Separate routine (Chart 
CM). The interleave factors for 
calculating the disk addresses are changed 
when necessary. 
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The number of sequences that are called 
into the input areas is determined by the 
order of merge. When all the main storage 
input areas are filled, the program 
continues to the compare loops (Charts CE 
through CK, as the case may be)- 



according to the current sequence and the 
order of merge. These addresses are listed 
in the table on Chart CD. 



USTOPA, CD-B2 



The compare loops are initialized for the 
required sequences and a corresponding bit 
is set in the end-of-merge indicator 
(OMERGE): 



Seg . Label 



Initialize 
Branches at 



OMERGE Bit 



USTOPA BPUTG, BPUTF, 

BPUTE, BPUTD, 

BPUTC, BPUTB, 
FILLA 

USTOPB COMPBA, BGA, 

BFA f BEA, BDA, 
BCA, FILLB 



GETA, CD-E2 



This location is entered not only from the 
preceding function block (FILLA) but also 
from the various compare loops as long as 
there are records in the input sequences. 
As each sequence is depleted, the entry to 
this routine is at USTOPn (to close the 
compare loop for the particular sequence) 
instead of to this point. 

The starting address of the input area 
for the current sequence (ABEGIN, BBEGIN, 
etc.) is used along with the corresponding 
logical unit address to initialize a 
channel program to get a block of records 
from disk storage. 



USTOPC COMPCB, BGB, 

BFB, BEB, BDB, 
FILLC 



RDABCD, CD-F2 



D USTOPD COMPDC, BGC, 4 

BFC, BEC, FILLD 

E USTOPE COMPED, BGD, 5 

BFD, FILLE 

F USTOPF COMPFE, BGE, 6 

FILLF 

G USTOPG COMPGF, FILLG 7 

When all the specified sequences have 
been processed and the 1-bits in OMERGE 
have been inverted to 0-bits as described 
in FILLA, a branch is made to the output 
routine (Chart CD. Until then, the 
routine continues to FILLA (or FILLB, etc., 
as the case may be). 



FILLA, CD-D2 



The unconditional branch at this location 
is a no-op as long as there are records to 
be processed in the current input sequence; 
the routine thus continues to GETA (or 
GETB, etc. as the case may be). When the 
end of the current input sequence is 
reached, the compare loop for that sequence 
is closed off and the corresponding bit in 
OMERGE is inverted to a zero. Then, as 
long as there are more input sequences, a 
branch is made to an address that varies 



An EXCP macro is issued and a block of 
records is read into the specified input 
area in main storage. 

For all sequences except the highest one 
(G in a 7-way merge or D in a 4-way merge) , 
the routine continues to LM1 (or LM2, etc. , 
as the case may be). When the highest 
sequence is being processed, the routine 
branches directly to IRMDR. 



LM1, CD-G3 



This location is a switch that will be on 
(no-op) only during the last merge of a 
pass. Until such time, the routine 
branches to IRMDR. 

During the last merge of a pass, a test 
is made to determine if the input 
interleave factor for the current sequence 
should be reduced. This factor is reduced 
when the number of blocks processed in the 
current sequence is one greater than the 
number of blocks in the last sequence of a 
pass (LSTRGn). The count in LSTRGn is 
reduced by one each time this function is 
entered during the last merge of a pass. 
If the decremented count is equal to or 
higher than zero, a branch is made to 
IRMDR; if lower, the branch is to IRMDR1. 
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IRMDR, CD- H4 



COMPGF, CE-B2 



This location is entered when the input 
interleave factors are not to he changed. 
The factors are stored in RMDR and QUOT and 
the program continues to the routine to 
calculate the next interleaved disk address 
at CALADR (Chart CM). The program returns 
to this routine at BYPAS1+4. 



IRMDR1, CD-H5 



This location is entered when the input 
interleave factors need to be changed- The 
reduced factors for the next lower order of 
merge are stored in RMDR and QUOT and a 
branch is made to the routine to calculate 
the next interleaved disk address at CALADR 
(Chart CM). The program returns to this 
routine at BYPAS1+4. 



BYPAS1+4, CD-J3 



The current interleaved disk address (CHHR) 
is stored in ARADDR (or BRADDR, etc., as 
the case may be) and a branch is made to an 
address that varies according to the 
current sequence and the order of merge. 
These addresses are listed in the table on 
Chart CD. 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when sequence G is depleted. If such 
is the case, a branch is made to CO.MPFE in 
the sequence F compare loop (Chart CF) ; if 
not, a record from sequence G is compared 
with a record from sequence F. As long as 
G is determined to be the winner, it is 
compared with records from the other 
available sequences in turn. The routine 
thus continues in this compare loop or 
exits to another loop, depending on the 
results of each comparison. For example, 
when merging in ascending sequence: 



Function 


Winner 


Branch 


to 


C0MP6F 


G 


COMPGE 






F 


COMPFE 


(Chart CF) 


COMPGE 


G 


COMPGD 






E 


CO MP ED 


(Chart CG) 


COMPGD 


G 


COMPGC 






D 


COMPDC 


(Chart CH) 


COMPGC 


G 


COMPGB 






C 


COMPCB 


(Chart CJ) 


COMPGB 


G 


COMPGA 






B 


COMPBA 


(Chart CK) 


COMPGA 


G 


PUTG 






A 


PUT A (Chart CK) 



SEQUENCE G COMPARE LOOP, FIXED- LENGTH 
RECORDS - CE 



The program that was loaded into main 
storage at the start of phase 2 was for 
either a 7-way (DSORT2 02) or a 4-way merge 
(DSORT201). For a 4-way merge, the compare 
loops start at sequence D (Chart CH). 

For a 7-way merge, the input routine 
(Chart CD) initialized certain branch 
instructions in all the compare loops from 
G through B. However, the flow through 
these loops varies not only with the order 
of merge but also, later on, with the 
depletion of records in the sequences being 
merged. As each sequnce is depleted, a 
branch is made to the compare loop for the 
next lower order of merge (Charts CF 
through CK, consecutively). A 
branch-and-link to the output routine 
(Chart CD moves each winning record, in 
turn, to the output area. The program 
keeps returning to this loop as long as 
there are records to be merged from 
sequence G, F, or E. It then exits to the 
sequence F compare loop (Chart CF). 



The branch exits are determined not only 
by the results of the comparison but also 
by the depletion of input sequences. For 
example, if in COMPGE sequence E is found 
to be depleted, the instruction at BGD is 
an unconditional branch to COMPGD to 
compare the G record with the next D 
record. 

Another variation in the compare loop 
operation occurs when, for example, a G 
record is found to be the winner through 
COMPGF and COMPGE. Then, in COMPGD, the D 
record is found to be the winner. The exit 
from the loop, as previously described, is 
to COMPDC (Chart CH); however, the return 
address that is saved in register SAVED is 
COMPGD+2. Then, assuming the D record is 
the winner through compare loops C, B, and 
A, it is moved to the output area, and 
control is returned to the G loop at the 
address in SAVED. The reason for entering 
this loop at COMPGD +2 is that although D 
was the winner, the G record had already 
been determined to be winner over F and E 
at that time. Therefore, the comparing in 
G loop resumes at the point where G is 
compared with the next D record. 
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PUTG, CE-J2 



The address of the winning record from 
sequence G is loaded into register MREG and 
a branch- and- link is made to OUTFUL in the 
output routine (Chart CD, control is 
returned to this routine at NXTGR, 



NXTGR, CE-H4 



The address for the sequence G input area 
is updated and, if there are more records 
in the area, a branch is made back to 
COMPGF to compare the next record. If, 
however, there are no more records in the G 
input area, a test is then made to 
determine if the end of input sequence G 
has been reached (hexadecimal EF in the 
last byte of the block), If so, a branch 
is made to USTOPG in the input routine 
(Chart CD) to close the G compare loop so 
that future entries during this merge will 
branch directly from COMPGF to COMPFE, If 
the G sequence is not yet depleted, a 
branch is made to GETG in the input routine 
to refill the input area* 



SEQUENCE F COMPARE LOOP, FIXED-LENGTH 
RECORDS - CF 



compared with records from the other 
available sequences in turn. The routine 
thus continues in this compare loop or 
exits to another loop, depending on the 
results of each comparison. For example, 
when merging in ascending sequence: 



Function 


Winner 


Branch 


to 


COMPFE 


F 


COMPFD 






E 


COMPED 


(Chart CG) 


COMPFD 


F 


COMPFC 






D 


COMPDC 


(Chart CH) 


COMPFC 


F 


COMPFB 






C 


COMPCB 


(Chart CJ) 


COMPFB 


F 


COMPFA 






B 


COMPBA 


(Chart CK) 


COMPFA 


F 


PUTF 






A 


PUTA (Chart CK) 



The branch locations are detemined not 
only by the results of the comparison but 
also by the depletion of input sequences. 
For example, if in COMPFD sequence D is 
found to be depleted, the instruction at 
BFC is an unconditional branch to COMPFC to 
compare the F record with the next C 
record. 



For a 6-way merge, the input routine (Chart 
CD) initialized certain branch instructions 
in all the compare loops from F through B, 
However, the flow through these loops 
varies not only with the order of merge but 
also, later on, with the depletion of 
records in the sequences being merged, As 
each sequence is depleted, a branch is made 
to the compare loop for the next lower 
order of merge (Charts CG through CK, 
consecutively), A branch-and-link to the 
output routine (Chart CD moves each 
winning record, in turn, to the output 
area. The program keeps returning to this 
loop as long as there are records to be 
merged from sequence F, It then exits to 
the sequence E compare loop (Chart CG). 



Another variation in the compare loop 
operation occurs when, for example, an F 
record is found to be the winner through 
COMPFE and COMPFD, Then, in COMPFC, the C 
record is found to be the winner. The exit 
from the loop, as previously described, is 
to COMPCB (Chart CJ) ; however, the return 
address that is saved in register SAVEC is 
COMPFC +2, Then, assuming the C record is 
the winner through compare loops B and A, 
it is moved to the output area, and control 
is returned to the F loop at the address in 
SAVEC* The reason for entering this loop 
at COMPFC+2 is that although C was the 
winner, the F record had already been 
determined to be winner over E and D at 
that time, Therefore, the comparing in F 
loop resumes at the point where F is 
compared with the next C record. 



COMPFE, CF-B2 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when sequence F is depleted, If such 
is the case, a branch is made to COMPED in 
the sequence E compare loop (Chart CG) ; if 
not, a record from sequence F is compared 
with a record from sequence E, As long as 
F is determined to be the winner, it is 



PUTF, CF-H2 



The address of the winning record from 
sequence F is loaded into register MREG and 
a branch- and- link is made to OUTFUL in the 
output routine (Chart CD, Control is 
returned to this routine at NXTFR, 
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NXTFR, CF-HU 



The address for the sequence F input area 
is updated and, if there are more records 
in the area, a branch is made back to the 
start of the highest available compare loop 
(COMPGF or COMPFE) to compare the next 
record- If, however, there are no more 
records in the F input area, a test is made 
to determine if the end of input sequence F 
has been reached (hexadecimal EF in last 
byte of block) . If so, a branch is made to 
USTOPF in the input routine (Chart CD) to 
close the F compare loop so that future 
entries during this merge will branch 
directly from COMPFE to COMPED. If the F 
sequence is not yet depleted, a branch is 
made to GETF in the input routine to refill 
the input area. 



Function 


Winner 


Branch 


to 


CO MP ED 


E 


COMPEC 






D 


COMPDC 


(Chart CH) 


COMPEC 


E 


COMPEB 






C 


COMPCB 


(Chart CJ) 


COMPEB 


E 


COMPEA 






B 


COMPBA 


(Chart CK) 


COMPEA 


E 


PUTE 






A 


PUT A (Chart CK) 



The branch locations are determined not 
only by the results of the comparison but 
also by the depletion of input sequences. 
For example, if in COMPEC sequence C is 
found to be depleted, the instruction at 
BEB is an unconditional branch to COMPEB to 
compare the E record with the next B 
record. 



SEQUENCE E COMPARE LOOP, FIXED-LENGTH 
RECORDS - CG 



For a 5-way merge, the input routine (Chart 
CD) initialized certain branch instructions 
in all the compare loops from E through B. 
However, the flow through these loops 
varies not only with the order of merge but 
also, later on, with the depletion of 
records in the sequences being merged. As 
each sequence is depleted, a branch is made 
to the compare loop for the next lower 
order of merge (Charts CH through CK, 
consecutively). A branch -and- link to the 
output routine (Chart CD moves each 
winning record, in turn, to the output 
area. The program keeps returning to this 
loop as long as there are records to be 
merged from sequence E. It then exits to 
the sequence D compare loop (Chart CH). 



Another variation in the compare loop 
operation occurs when, for example, an E 
record is found to be the winner through 
COMPED and COMPEC. Then, in COMPEB, the B 
record is found to be the winner. The exit 
from the loop, as previously described, is 
to COMPBA (Chart CK) ; however, the return 
address that is saved in register SAVEB is 
COMPEB* 2. Then, assuming the B record is 
the winner through compare loop B, it is 
moved to the output area, and control is 
returned to the E loop at the address in 
SAVEB. The reason for entering this loop 
at COMPEB+2 is that although B was the 
winner, the E record had already been 
determined to be winner over D and C at 
that time. Therefore, the comparing in E 
loop resumes at the point where E is 
compared with the next B record. 



PUTE, CG-G2 



COMPED, CG-B2 



The address of the winning record from 
sequence E is loaded into register MREG and 
a bra nch-and- link is made to OUTFUL in the 
output routine (Chart CD. Control is 
returned to this routine at NXTER. 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when sequence E is depleted. If such 
is the case, a branch is made to COMPDC in 
the sequence D compare loop (Chart CH) ; if 
not, a record from sequence E is compared 
with a record from sequence D. As long as 
E is determined to be the winner, it is 
compared with records from the other 
available sequences in turn. The routine 
thus continues in this compare loop or 
exits to another loop, depending on the 
results of each comparison. For example, 
when merging in ascending sequence: 



NXTER, CG-H4 



The address of the sequence E input area is 
updated and, if there are more records in 
the area, a branch is made back to the 
start of the highest available compare loop 
(COMPGF, COMPFE, or COMPED) to compare the 
next record. If, however, there are no 
more records in the E input area, a test is 
made to determine if the end of input 
sequence E has been reached (hexadecimal EF 
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in last byte of block) . If so, a branch is 
made to USTOPE in the input routine (Chart 
CD) to close the E compare loop so that 
future entries during this merge will 
branch directly from COMPED to COMPDC. If 
the E sequence is not yet depleted, a 
branch is made to GETE in the input routine 
to refill the input area. 



Function Winner Branch to 



COMPDC 


D 


COMPDB 




C 


COMPCB (Chart CJ) 


COMFD'B 


D 


COMPDA 




B 


COMPBA (Chart CK) 


COMPDA 


D 


PUTD 




A 


PUT A (Chart CK) 



RECORDS 



CH 



This compare loop is entered: 

» In a 7- way merge, when the record from 
sequence D is found to be the winner in 
a previous compare loop. 

• In a 7-way merge, when sequences G, F, 

and E have been depleted. 

» In a 4-way merge, at the completion of 
the input routine. 

For a 4-way merge, the input routine 
(Chart CD) initialized certain branch 
instructions in all the compare loops from 
D through B. However, the flow through 
these loops varies not only with the order 
of merge but also, later on, with the 
depletion of records in the sequences being 
merged. As each sequence is depleted, a 
branch is made to the compare loop for the 
next lower order of merge (Charts CJ and/or 
CK) . A branch- and- link to the output 
routine (Chart CD moves each winning 
record, in turn, to the output area. The 
program keeps returning to this loop as 
long as there are records to be merged from 
sequence D. It then exits to the sequence 
C compare loop (Chart CJ). 



The branch locations are determined not 
only by the results of the comparison but 
also by the depletion of input sequences. 
For example, if in COMPDB sequence B is 
found to be depleted, the instruction at 
BDA is an unconditional branch to COMPDA to 
compare the D record with the next A 
record. 

Another variation in the compare loop 
operation occurs when, for example, a D 
record is found to be the winner in COMPDC. 
Then, in COMPDB, the B record is found to 
be the winner. The exit from the loop, as 
previously described, is to COMPBA (Chart 
CK); however, the return address that is 
saved in register SAVEB is COMPDB+2. Then, 
assuming the B record is the winner in 
compare loop A, it is moved to the output 
area, and control is returned to the D loop 
at the address in SAVEB. The reason for 
entering this loop at COMPDB+2 is that 
although B was the winner, the D record had 
already been determined to be winner over C 
at that time. Therefore, the comparing in 
D loop resumes at the point where D is 
compared with the next B record. 



PUTD, CH-F2 



The address of the winning record from 
sequence D is loaded into register MREG and 
a branch-and-link is made to OUTFUL in the 
output routine (Chart CI,) . Control is 
returned to this routine at NXTDR. 



COMPDC, CH-B2 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when sequence D is depleted. If such 
is the case, a branch is made to COMPCB in 
the sequence C compare loop (Chart CJ) ; if 
not, a record from sequence D is compared 
with a record from sequence C. As long as 
D is determined to be the winner, it is 
compared with records from the other 
available sequences in turn. The routine 
thus continues in this compare loop or 
exits to another loop, depending on the 
results of each comparison. For example, 
when merging in ascending sequence: 



NXTDR, CH-H3 



The address for the sequence D input area 
is updated and, if there are more records 
in the area, a branch is made back to the 
start of the highest available compare loop 
(depending upon the order of merge) to 
compare the next record. If, however, 
there are no more records in the D input 
area, a test is made to determine if the 
end of input sequence D has been reached 
(hexadecimal EF in last byte of block) . If 
so, a branch is made to USTOPD in the input 
routine (Chart CD) to close the D compare 
loop so that future entries during this 
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merge will branch directly from COMPDC to 
COMPCB. If the D sequence is not yet 
depleted, a branch is made to GETD in the 
input routine to refill the input area. 



SEQUENCE C COMPARE LOOP, FIXED-LENGTH 
RECORDS - CJ 



For a 3-way merge, the input routine (Chart 
CD) initialized certain branch instructions 
in compare loops C and B. However, the 
flow through these loops varies not only 
with the order of merge but also, later on, 
with the depletion of records in the 
sequences being merged. As each sequence 
is depleted, a branch is made to the 
compare loop for the next lower order of 
merge (Chart CK). A branch- and- link to the 
output routine (Chart CD moves each 
winning record, in turn, to the output 
area. The program keeps returning to this 
loop as long as there are records to be 
merged from sequence C. It then exits to 
the sequence B compare loop (Chart CK). 



previously described, is to PUTA (Chart 
CK); however, the return address that is 
saved in register SAVEA is COMPCA+2. Then, 
after the A record is moved to the output 
area, control is returned to the C loop at 
the address in SAVEA. The reason for 
entering this loop at COMPCA+2 is that 
although A was the winner, the C record had 
already been determined to be winner over 
the B record. Therefore, the comparing in 
C loop resumes at the point where C is 
compared with the next A record. 



PUTC, CJ-E2 



The address of the winning record from 
sequence C is loaded into register MREG and 
a branch-and-link is made to OUTFUL in the 
output routine (Chart CD, Control is 
returned to this routine at NXTCR. 



NXTCR, CJ-G3 



COMPCB, CJ-B2 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when sequence C is depleted. If. such 
is the case, a branch is made to COMPBA in 
the sequence B compare loop (Chart CK); if 
not, a record from sequence C is compared 
with a record from sequence B. If the C 
record is the winner, it is compared with a 
record from sequence A. If the C record 
wins again, the routine continues to PUTC. 

The other branch locations, in the event 
that either B or A is determined to be the 
winner, are: 



The address for the sequence C input area 
is updated and, if there are more records 
in the area, a branch is made back to the 
start of the highest available compare loop 
(depending on the order of merge) to 
compare the next record. If, however, 
there are no more records in the C input 
area, a test is made to determine if the 
end of input sequence C has been reached 
(hexadecimal EF in last byte of block). If 
so, a branch is made to USTOPC in the input 
routine (Chart CD) to close the C compare 
loop so that future entries during this 
merge will branch directly from COMPCB to 
COMPBA. If the C sequence is not yet 
depleted, a branch is isade to GETC in the 
input routine to refill the input area. 



Function Winner 



COMPCB 

COMPCA 



B 
A 



Branch to 

COMPBA (Chart CK) 

PUTA (Chart CK) 



The branch locations are determined not 
only by the results of the comparison but 
also by the depletion of input sequences. 
For example, if in COMPCA sequence A is 
found to be depleted, the instruction at 
BPUTC is an unconditional branch to PUTC to 
prepare to move the C record to the output 
area. 



SEQUENCE B COMPARE LOOP, FIXED-LENGTH 
RECORDS - CK 



For a 2- way merge, the input routine (Chart 
CD) initialized certain branch instructions 
in compare loop B. However, the flow 
through this loop varies not only with the 
order of merge but also, later on, with the 
depletion of records in sequence B. When 
sequence Bis depleted , a branch is made to 
prepare to move the A record to the output 
area. 



Another variation in the compare loop 
occurs when, for example, a C record is 
found to be the winner in COMPCB. Then, in 
COMPCA, the A record is found to be the 
winner. The exit from the loop, as 



A branch-and-link to the output routine 
(Chart CD moves each winning record, in 
turn, to the output area. The program 
keeps returning to this loop as long as 
there are records to be merged from 



External Sort or Merge 107 



sequence B. 
PUTA. 



It then branches directly to 



NXTAR, CK-G4 



C0MPBA, CK-B2 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when sequence B is depleted. If such 
is the case, a branch is made to PUTA; if 
not, a record from sequence B is compared 
with a record from sequence A* If the B 
record is the winner, the routine branches 
to PUTB; if the A record is the winner, the 
routine branches to PUTA, 



The address for the sequence A input area 
is updated and, if there are more records 
in the area, a branch is made back to the 
start of the highest available compare loop 
(depending on the order of merge) to 
compare the next record. If, however, 
there are no more records in the A input 
area, a test is made to determine if the 
end of input sequence A has been reached 
(hexadecimal EF in last byte of block). If 
so, a branch is made to USTOPA in the input 
routine (Chart CD) to close the sequence A 
compares. If the A sequence is not yet 
depleted, a branch is made to GETA in the 
input routine to refill the input area. 



PUTB, CK-D2 



OUTPUT ROUTINE, FIXED- LENGTH RECORDS - CL 



The address of the winning record from 
sequence B is loaded into register MREG and 
a branch-and-link is made to 0UTFUL in the 
output routine (Chart CL) . Control is 
returned to this routine at NXTBR. 



This routine is entered at one of three 
locations : 

• OUTFUL, when a winning record has been 
found in one of the compare loops. 



NXTBR, CK-G2 



The address for the sequence B input area 
is updated and, if there are more records 
in the area , a branch is made back to the 
start of the highest available compare loop 
(depending on the order of merge) to 
compare the next record. If, however, 
there are no more records in the B input 
area, a test is made to determine if the 
end of input sequence B has been reached 
(hexadecimal EF in the last byte of block). 
If so, a branch is made to USTOPB in the 
input routine (Chart CD) to close the B 
compare loop so that future entries during 
this merge will branch directly from C0MPBA 
to PUTA. If the B sequence is not yet 
depleted, a branch is made to GETB in the 
input routine to refill the input area. 



» MMPP, when an end-of-merge condition is 
detected in the input routine (end of 
current set of input sequences). 

* M0VMVC, (via STR2) , when a winning 

record is to be moved immediately after 
writing a block on disk (the output 
area was full) . 

When the routine is entered at OUTFUL, 
and the output area is not full, the 
winning record is moved to the output area 
and the* program returns to the compare loop 
in which the winning record was found. 
When the output area is full, the contents 
are first written in the output portion of 
the disk work area, the output interleave 
factor is reduced, if necessary, and the 
new disk address is calculated (Chart CM). 
The winning record is then moved to the 
output area and the program returns to the 
compare loop in which the winning record 
was found. 



PUTA, CK-D4 



The address of the winning record from 
sequence A is loaded into register MREG and 
a branch-and-link is made to OUTFUL in the 
output routine (Chart CD. Control is 
returned to this routine at NXTAR. 



When the routine is entered at MMPP, an 
end- of- sequence indicator (hexadecimal EF) 
is inserted in the last byte of the current 
output block and the end-of-merge switch is 
turned on. The last output block is then 
written out, the output interleave factor 
is changed, if necessary, and the new disk 
address is calculated (Chart CM). The 
program then branches to the merge-merge 
routine (Chart CB). 
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OUTFUL, CL-C2 



count field. The routine then continues to 
WTDATA. 



The current address of the output area (in 
register PUTOUT) is compared to the address 
of the end of the output area (OUTEND). If 
the output area is full, a branch is made 
to WRITE; if not, a branch is made to the 
move routine via the selector table (STR2), 



MOVMVC, CL-D2 



The winning record (address in MREG) is 
moved to the output area. This move 
subroutine is entered via STR2; the move 
instructions were initialized so that only 
the actual number of bytes are moved at 
execution time, As part of the 
initialization, a branch exit to ZYXWZY was 
placed at the end of the move 
instruction (s) • 



ZYXWZY, CL-E2 



The current address of the output area 
(register PUTODT) is updated and the 
routine branches back through the LINK 
register to the compare loop in which the 
winning record was determined* The 
possible addresses are listed at the 
off -page connector from block E2 on Chart 
CL. 



WTDATA, CL-E3 



An EXCP macro is issued and the block of 
records is written from the main storage 
output area into the output portion of the 
disk work area. The parameters for the 
write operation are supplied by the command 
control block at OCCB, The routine then 
continues to LMO. 



LMO, CL-F3 



This location is a switch that will be on 
(no-op) only when the remaining input 
sequences are equal to or less than the 
order of merge squared (S<M 2 ). This 
condition is detected in the merge-merge 
routine (see LMOSW, Chart CB-F3). Until 
such time, LMO is a branch to ORMDR. 

When S<M 2 , a calculation and test are 
made to determine if the number of blocks 
merged to the output sequence is greater by 
one than the number of blocks contained in 
the last merge of the pass, If it is, the 
output interleave factors are to be reduced 
and a branch is made to ORMDR1; otherwise, 
the routine continues to ORMDR. 



MMPP, CL-C3 



ORMDR, CL-H3 



The end-of-sequence indicator (hexadecimal 
EF) is inserted at the end of the block 
currently in the output area and the 
end~of-merge switch (MMPP1 on Chart CM) is 
turned on. The routine then continues to 
WRITE, 



WRITE, CL-D3 



This location is entered when the output 
interleave factors are not to be changed. 
The factors are stored in RMDR and QUOT and 
the program branches to the routine to 
calculate the next interleaved disk address 
at CALADR (Chart CM), Upon return to the 
output routine (when switch MMPP1 is of f ) , 
the entry point is STR2. 



The address of the start of the output area 
(OBEGIN) is restored in register PUTOUT, 
and the current disk address of the output 
sequence is moved to the current disk 
interleave address. If the BPT (blocks per 
track) is greater than 1, a branch is made 
to WTDATA; if BPT = 1 (a condition that can 
occur only during pass 1), the output count 
field address is stored, the current 
interleave address is reduced by one, and 
the output area address in register PUTOUT 
is incremented by eight to put it past the 



ORMDRl, CL-H4 



This location is entered when the output 
interleave factors need to be changed. The 
reduced factors for the next lower order of 
merge are stored in RMDR and QUOT and the 
program branches to the routine to 
calculate the next interleaved disk address 
at CALADR (Chart CM). Upon return to the 
output routine (when switch MMPP1 is off) , 
the entry point is STR2. 
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CALCULATE INTERLEAVED DISK ADDRESS ROUTINE, 

FIXED- LENGTH RECORDS - CM 



LMTSOK, CM-E3 



This routine is entered from the input 
routine (Chart CD) whenever a block is 
read, or from the output routine (Chart CD 
whenever a block is written. 

The current interleaved disk address is 
updated with the factors in RMDR and QUOT, 
which have been placed there by the routine 
(input or output) immediately before entry 
to this routine- 

The record number and head/track number 
are calculated and checked for validity- 
If maximums are exceeded, the next higher 
valid address is calculated. The upper 
limit of the current work area extent is 
then checked and, if exceeded, a new 
address is calculated based on the lower 
limit of the next logical segment of the 
work area- 
See Figure 35 for an illustration of 
interleaved disk address calculations. 



CALABR, CM-C2 



The interleave factor in RMDR is used to 
calculate the next record number by adding 
it to the current disk address (CHHR) in 
register 0- If the new record number is 
greater than the maximum number of sort 
blocks per track (BPT) , it is not val.id; 
the next valid record number is then 
calculated by adding the 25 6 -complement of 
the BPT (BCOMP) to the value in register 0. 

The interleave factor in QUOT is then 
used to calculate the new head /track number 
by adding it to the newly-calculated record 
number in register 0- If the new 
head/ track number exceeds nine, it is not 
valid; the next valid cylinder/head number 
is calculated by adding the 256 -complement 
of ten (HCOMP) to the value in register 0. 

A test is then made to determine if the 
upper limit of the current work area extent 
has been exceeded by the new disk address 
just calculated in register 0. If not, the 
new address is valid and a branch is made 
to LMTSOK; if so, the disk address is 
re- calculated based on the lower limit of 
the next extent in the work area. 



The new interleaved disk address, for input 
or output, as the case may be, is stored in 

CHHR. 



BSTR6, CM-F3 



If the interleaved address just calculated 
and stored was for output, it is moved from 
CHHR to ORADDR and the routine continues to 
MMPP1. If the address was for input, a 
branch is made to BYPASH-4 (or BYPAS2+4, 
etc. , as the case may be) in the input 
routine (Chart CD), where the address will 
be moved from CHHR to ARADDR (or BRADDR, 
etc-, as the case may be)- 



MMPP1, CM-H3 



This location is normally a branch back to 
MOVMVC (via STR2) in the output routine 
(Chart CL) to move a winning record that 
could not be moved earlier because the 
output area was full- At the end of a 
merge, however, MMPP1 would have been 
changed to a no-op (at MMPP in the output 
routine) so that the program will continue 
to MMPP2 in the merge- merge routine (Chart 
CB). 



PHASE 2 INITIALIZATION, VARIABLE-LENGTH 
RECORDS - CN 



The checkpoint record, created by the 
assignment phase and updated by phase 1, is 
read into main storage to obtain 
information to be used in phase 2. This 
routine then initializes: 

• Merge-merge routine 

• Pass- pass routine 

• Sequence compare loops 

• Interleave address routine 

• Relocatable routines 

• Constants 
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Order of Merge — 4 
Blocks Per Track — 5 



RMDR — 0004 
QUOT — 0000 
BCOMP — 00FB 



Current Disk Address 

Add (RMDR) Factor 
Record Number Valid 
(Equal to or Less Than BPT) 

Add (Quot) Factor 
Track Number Valid 
(Equal to or Less Than 09) 



Current Disk Address 

Add (RMDR) Factor 
Record Number Invalid 

Add Complement of BPT 

(05=O0FB) 

Record Number Valid 

Add (Quot) Factor 
Track Number Valid 



Current Disk Address 

Add (RMDR) Factor 
Record Number Invalid 

Add Complement of BPT 
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Track Number Invalid 
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Figure 35„ Calculate Interleaved Disk Address 
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Merge- merge , Initialized according to 
the order of merge that was calculated by 
the assignment phase (from 2 to 6), 



Pass-pass , Initialized according to the 
order of merge to be used during phase 2, 
Input and output interleave factors, as 
well as pointers to the logical halves of 
the work area table, are stored at this 
time, 



Reg, Contents 

2 Logical unit 

address of de- 
vice where 
checkpoint is 
written. 



Stored in 

1, CCB for taking 
checkpoint at 
every pass 
(RSTCCB). 



CCB for reading 

checkpoint 

(CKPCCB). 



Compare . All compares within the 
compare loops are initialized with the 
length and location of the first control 
data field. Branches are initialized for 
either ascending or descending sequence. 



Interleave Address routine . Factors are 
calculated for the input/output disk 
address interleaving for phase 2, 



Relocatable routines . The equal routine 
is not relocated, However, if the equal 
routine is not required or if the records 
contain less than 12 control fields, it 
will be bypassed or shortened, as the case 
may be. When control is returned by the 
relocator, initialization continues and the 
pass- pass routine is written out on the 
2311 checkpoint track as record two, 
Subsequently, it is brought in to main 
storage only when an end-of-pass condition 
exists. 



The next step is to calculate or 
allocate the input/output areas to be used 
in the merging process. The number of main 
storage areas needed is equal to the order 
of merge plus one. Each area is equal to 
the sort-block size. Each input area also 
has an overflow area which is LMAX-1 in 
length (maximum logical record length minus 
one) . The input/output channel programs 
are then initialized with the number of 
bytes to be transferred during an I/O 
operation (number of bytes is equal to the 
sort- block size), The program then 
continues to the merge-merge routine (Chart 
CP) . 



Disk address 
of checkpoint 
record, 



3. CCB for reading 
and writing the 
pass-pass routine 
(PPCCB). 

1, Location CHECKP, 
for updating 
checkpoint re- 
cord and for 
passing this ad- 
dress to phase 3, 

2. Location CHHR, 
current disk 
interleave ad- 
dress. Used only 
to read the check- 
point record for 
initialization. 



RCHKPT, CN-C2 



An EXCP macro is issued and the checkpoint 
record is read into location PASSNO, When 
the read operation is completed, the 
routine continues to RDCPOK, 



RDCPOK, CN-D2 



A test is made to determine if the equal 
routine is required (more than one control 
field per record). If so, a branch is made 
to COMPIT; if not, the branches in the 
mainline compare loops are initialized to 
bypass the branch- and- link to the equal 
routine when two equal records are 
encountered. 



COMPIT, CN-F2 



INTPH2, CN-B2 



The base register (register 11) is loaded 
with the starting address of phase 2. This 
address is obtained from CKPCCB+8. 
Registers 2 and 3, which were loaded at the 
end of phase 1, are stored: 



The length and displacement (location 
within record) of the first control field 
are OR* ed into the compare instructions in 
the mainline compare loops. The 
instructions that determine the branching 
conditions in the compare loops are then 
initialized for ascending or descending 
sequence. 
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The order of merge (M) and blocks per 
track (BPT1) are obtained from the 
checkpoint record and stored in constants 
PH2I0M and BPT, respectively. Registers 
are then initialized for calculating 
interleave factors for disk addresses. 



DIVAGN, CN-G2 



START, CN-F3 



The pass-pass routine is initialized with 
the starting address of the phase 2 input 
and output areas in main storage* This 
address, which will later be the address 
into which the checkpoint record will be 
read, is obtained from location RLISA after 
the relocator routine is executed. 



The interleave factors are calculated by 
dividing the order of merge by the sort 
blocks per track. The quotient is stored 
in location NQOUT and the remainder in 
location NRMDR. The order of merge is then 
reduced by one and the next factors are 
calculated and stored adjacent to the 
first. This process is repeated for a 
number of times that is equal to the order 
of merge. These factors will be used by 
the interleaved disk address routine; the 
quotients for calculating the head or track 
numbers, the remainders for calculating the 
record numbers. 

The merge-merge routine is initialized 
with a switch (at WAY4) for the specified 
order of merge for phase 2. 

The pass- pass routine is then 
initialized with indexing factors (from 
POINT!) that point to the logical halves of 
the work area table. 

The number of blocks per sequence is 
then obtained from the checkpoint record 
and stored at OUTPTG. 

A test is made to determine if a copy 
pass is required in phase 2. If the user 
has specified that the output file is to be 
written in the first half of the disk work 
area, and if an inaccurate file size has 
been specified on the SORT control 
statement, the input for phase 3 could be 
in the first half of the work area (based 
on the number of passes calculated by phase 
1). When this condition exists, an extra 
pass must be made so that the phase 3 input 
will be in the second half of the work 
area. 



CPIOAS, CN-B4 



An overflow area, equal in size to the 
maximum logical record length minus one 
(LMAX-1), is allocated adjacent to the 
beginning of each input area. These areas 
are used for compacting split records when 
they are encountered (see Figure 29). 



Constants for phase 2 input and output 
areas are now calculated. These are: 



• ABEGIN through FBEGIN - Starting 
addresses of input areas A, B, C, D # E # 
and F (as required by order of merge). 

• AEND through FEND - Ending address of 
input areas A, B f C, D, E, and F (as 
required by order of merge) . 

» OBEGIN - Starting address of output 
area. 

If the sort blocks per track (BPT) is 
equal to 1, the second half of the work 
area was not formatted by phase 1. When 
such is the case, instructions are now 
modified so that pass 1 of phase 2 will 
format the second half of the disk work 
area, which is the pass 1 output portion. 

The pass-pass routine is then written on 
the checkpoint track as record 2. 



OUPTOK, CN-D3 



BYWCKD, CN-F4 



The physical limits of the work area are 
obtained from the checkpoint record 
(LOGPHY) and placed in the LIMITS table, 
branch is then made to the relocator 
routine (Chart FA). After the equal 
routine is included (if required) and its 
length is determined, control is returned 
to this routine at START. 



This instruction is a no-op except when the 
BPT is greater than 1, in which case a 
branch is made to NOWCKD. When BPT = 1 and 
the format must be established for the 
output portion of the disk work area, the 
routine allocates the output count field 
next to the output area and increases the 
output block count by eight. 
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NOWCKD, CN-H4 



The ending address of the output area 
(OUTEND) is calculated and stored. The 
read and write CCW f s are then initialized 
with the input and output data counts and a 
branch is made to the merge-merge routine 
(Chart CP). 



MERGE-MERGE ROUTINE, VARIABLE-LENGTH 
RECORDS - CP 



The merge-merge routine initializes the 
mainline to merge the next set of input 
sequences into one output sequence, A set 
is equal in number to the OM (order of 
merge) calculated by the assignment phase, 
except during the last merge of a pass when 
a set may have less sequences than the OM. 

During phase 1, fixed-length blocks were 
created to include the variable- length 
records. It is possible, therefore, that 
the last block of an output sequence from 
phase 1 will not be full, Phase 2, in all 
passes except the first, would most likely 
decrease the number of blocks in an output 
sequence in such cases. For example, if 
phase 2 is initialized to merge 2 sequences 
of three blocks each into an output 
sequence, the total output blocks should 
equal 6, Because the last blocks of the 
two sequences might not be full, the six 
blocks could possibly fit into five output 
blocks when merged in phase 2, To keep the 
interleaving technique the same as for 
fixed- length records, the address of the 
sixth block must be calculated and stored 
in the output address table even though the 
sixth block may be empty. 

The functions performed by this routine 
vary with the conditions at time of entry* 
These conditions are: 

* End- of- pass , which occurs (1) at the 
start of phase 2 and (2) each time all 
the input sequences have been merged 
into output sequences. For example, if 
phase 1 output is 64 sequences and the 
OM is 4, an end-of-pass condition would 
exist (1) at the start of phase 2, (2) 
when 64 input sequences have been 
merged into 16 output sequences, and 
(3) when the 16 new input sequences 
(the output from the previous pass) 
have been merged into 4 new output 
sequences, 

* End-of-merqe with more than M 2 input 
sequences remaining, 

* End-of-merqe with M 2 or less input 
sequences remaining, 



• End-of-merqe with M or less input 

sequences remaining (which signifies 
that the upcoming merge is the last one 
of the current pass), 

The functions performed for each 
condition are: 

End-of-pass , The last-merge switches in 
the input and output routines are turned 
off and a branch is made to the pass-pass 
routine. When control is returned to this 
routine, there would no longer be an 
end-of-pass condition; at this point, it 
would be either (1) end-of-merge with more 
than M 2 sequences or (2) end-of-merge with 
M 2 or less sequences. These functions are 
described in the following paragraphs under 
their respective headings. Note that the 
only function that will not be performed in 
an end-of-pass condition is the shifting of 
the output disk address table. This table 
is never shifted before the first merge of 
a pass. 

End-of-merqe with more than M 2 
sequences . The mainline is re- initialized 
for the order of merge calculated by the 
assignment phase and the number of input 
sequences is reduced by a number equal to 
the order of merge. The number of merges 
to be done before new output interleave 
factors are implemented is reduced by one. 
Then the output disk address table is 
shifted to obtain the starting address for 
the next output sequence. 

End-of-merqe with M 2 or less sequences . 
If this is the last merge of a pass, the 
functions performed are described in the 
next paragraph. If not the last merge, the 
mainline is initialized with new interleave 
factors to be used in computing the disk 
output addresses for the remainder of the 
pass. The output sequences created from 
this point on will become the input 
sequences for the last merge of the next 
pass. 

End-of-merqe with M or less sequences . 
When this condition is reached, it is the 
last merge of a pass. The input interleave 
factors are changed and the end-of-pass 
switch is turned on. The program will then 
continue to the pass-pass routine at the 
completion of the last merge. 



MMPP2, CP-B3 



The end-of-merge switch (MMPP1 in the 
interleave factors routine. Chart CY) is 
turned off and remains off until next time 
an end-of-merge condition is detected. 
Turning off switch MMPP1 consists of 
activating the branch to the input routine. 
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MMPPS, CP-C3 



If this routine is being entered on an 
end-of-pass condition, a branch is made to 
LM1234. For an end-of -merge condition, the 
end-of- sequence indicator (hexadecimal FO) 
is cleared from the end of the output area 
and registers are initialized to open the 
mainline and fill the input areas 
(registers SAVEA through SAVEC, depending 
on OM). 



end-of -pass switch at MMPPS is turned on 
(it will be turned off for the next pass in 
the pass- pass routine) and the routine 
continues to LM1234. 



LM1234, CP-D3 



TMINUS, CP-C4 



At the end of every merge in a pass (except 
the last) a check is made to see if the 
input addresses (ARADDR-FRADDR) and the 
output address (ORADDR) are updated to the 
disk address of the first block for the 
next set of M sequences. If an address is 
not updated (because the previous input or 
output sequence did not contain the number 
of blocks that it should) , the address is 
updated in the following manner: 

A new address is computed until the 
sequence block count associated with the 
address becomes zero. Every time an 
address is computed for a sequence during a 
merge, the sequence block count for that 
sequence is decremented by one. At the 
completion of a merge, all sequence block 
counts will be zero if all sequences 
contained the right number of blocks. If 
any sequences were short, the block counts 
will be positive. Whenever a sequence has 
a block count that is not zero, the address 
for the first block of the next respective 
sequence must be updated. 

When updating has been completed, if 
necessary, each address (ARADDR-FRADDR and 
ORADDR) is re- initialized with new sequence 
block counts for the next merge. See 
Figure 36 for an illustration of the 
updating procedure just described. 

The input sequence counter (SR) is 
tested to determine if the next merge will 
be the last one of the pass (SR<OM). If 
not, a branch is made to WAY4; if so, the 
routine continues to REDUCEI. 



One of two courses of action is taken at 
this point: 

• End of merge - Turn on last merge input 
interleave switches (LM1 through LMn, 
depending on OM) and continue to 
WAY4-4. 



End of pass - Turn off switches LM1 
through LMn and branch to LMOSW. 



At WAY 4-4, the pass-pass routine has 
inserted an instruction that initializes 
the mainline with the order of merge that 
is to be used during the last merge of a 
pass . 



WAY4, CP-E4 



The input sequence counter (SR) is 
decremented by a factor equal to the order 
of merge. Location MAXFAC is then tested 
to determine if the output interleave 
factors are to be changed (see Appendix A 
for description of MAXFAC contents). When 
the count in MAXFAC is at zero, it 
signifies that M 2 or less input sequences 
remain to be merged. Under these 
conditions, new output interleave factors 
are to be implemented and the routine 
continues to REDUCEO. As long as the count 
in MAXFAC is not zero, the count is 
decremented by one and the routine branches 
to NOCHG. 



REDUCEI, CP-C2 



Instructions at IRBOR and IQU0T are 
initialized with new input interleave 
factors for the last merge. The 



REDUCEO, CP-E2 



Instructions at ORMDR and OQUOT are 
initialized with new output interleave 
factors, which have been pre- determined by 
the pass- pass routine. Continue to LMOSW. 
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EXAMPLE: 3 Way Merge, 1 Block Per Track 



CHHR 


INDEX 


SYM. UNIT 


Sequence 
block count 


ARADDR 
71 1 


\/ 


\ / 


4 


BRADDR 
71 1 1 


Y 


Y 


4 


CRADDR 
71 2 1 


A 


A 


4 


ORADDR 
20 1 


/ \ 


/ \ 


12 


„ 4 * 


-•— 2 -** 


+ 2 + 


* — 4 * 



Each Input sequence should 
contain 4 blocks. 



^Each output sequence should 
* contain 12 blocks 
(4x3= 12) 



End of 1st merge 



ARADDR 
72 2 1 


w 


\ / 





BRADDR 
72 3 1 


Y 


V 





CRADDR 
72 1 1 


A 


A 


1 


ORADDR 
23 3 1 


/ \ 


/ \ 


1 



•+- contained 4 blocks 



**- contained 4 blocks 



**- contained 3 blocks, not updated 



-^- 4+4+3 = 11 blocks, not updated. 



After 1 MINUS updating 



ARADDR 
72 2 1 


w 


\ / 





BRADDR 
72 3 1 


Y 


Y 





CRADDR 
72 4 1 


A 


A 





ORADDR 
23 6 1 


/\ 


/ \ 






starting input addresses for next 
M sequences 



..starting output address for 3rd 
merge from now 



Remember the output address table must be shifted; therefore starting 
output disk address is 20.0. 1 . 1 

Figure 36. Variable-Length Disk Address - Block Count 



LMOSW, CP-F3 



At the end of a pass, the output interleave 
switch is turned off (LMO in the output 
routine, Chart CX) • This switch had been 
turned on (branch 00) during the pass when 
the number of input sequences remaining was 
equal to, or less than, M a (when the count 
in MAXFAC was reduced to zero)* After 
switch LMO is turned off, a branch is made 



to ENDPAS if it is the end of a pass; 
otherwise, the routine continues to NOCHG. 



ENDPAS, CP-H3 



At the end of each pass, as well as at the 
start of phase 2 (which is considered an 
end-of-pass condition) , the pass-pass 
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routine is read into the main storage I/O 
areas by channel program PPCHPG. The 
program then branches to EXECPP in the 
pass-pass routine, executes the routine , 
and returns control to this point in the 
merge-merge routine- The channel program 
then writes the pass-pass routine back on 
the checkpoint track in the work area and a 
branch is made to MMPPS+4 to start merging 
in the new pass. 



NOCHG, CP-H4 



For each new merge within a pass # the count 
for MAXFAC (which was just decremented at 
REDUCE0-4) is stored back in MAXFAC. 
Except for the first merge of every pass, 
the output disk address table (ORADDR) is 
shifted to give the starting disk address 
for the new output sequence. The output 
sequence block counter (LMSTRG) is 
re- initialized with a count equal to the 
number of blocks contained in the sequences 
which comprise the last merge of the pass. 
This counter is used at LMO in the output 
routine to detect when the output 
interleave factors should be reduced. The 
program then branches to USTOPA to open the 
mainline compare routine for sequence A. 



At the end of the pass- pass routine, 
control is returned to the merge-merge 
routine which writes the pass-pass routine 
back on the checkpoint track (record 2). 



EXECPP, CQ-B2 



The pass-pass routine is entered each time 
the entire file has been passed through or 
merged into a new set of sequences. It 
initializes phase 2 for the upcoming pass 
(except the last). 

The end-of-pass switch (MMPPS in the 
merge-merge routine), is turned off (branch 
00) and the routine initializes to read the 
checkpoint record into storage. 



TAKECP, CQ-C2 



The checkpoint record is read into the 
first 316 bytes of the phase 2 input/output 
areas. 



PASS- PASS ROUTINE, VARIABLE-LENGTH RECORDS 



At the beginning of each phase- 2 pass, the 
pass-pass routine is read from the 
checkpoint track into the main storage 
input/output areas at location EXECPP. The 
routine first reads the checkpoint record, 
updates it, and restores it to the 
checkpoint track. It then computes the 
initial disk addresses for M sequences for 
both input and output. The two pointers to 
the logical halves of the work area table 
are reversed so that initial disk addresses 
can foe computed at the beginning of the 
next pass. Next, the interleave factors 
are restored to their original values which 
were computed during phase 2 initialization 
(order of merge divided by BPT). The 
number of the pass being entered is listed 
on SYSLOG. If the upcoming pass is the 
last one, a switch is set to enable job 
control to fetch phase 3 into main storage. 

The pass-pass routine then calculates 
the interleave factors to foe used (1) 
during the last merge of the pass for input 
and (2) during the last set of merges for 
output (when M 2 or less input sequences are 
merged into M or less output sequences). 
The merge-merge routine is initialized with 
a switch that determines the order of merge 
during the last merge of the pass. 



CKPTOK, CQ-D2 



The checkpoint record is updated with: 

1. A decimal integer representing the 
phase 2 pass number (PH2PAS) 

2. The number of passes remaining (NOPASS) 

3. The number of sequences to be merged 
during the upcoming pass (NSR) 

4. The number of sort blocks that comprise 
the last merge of the pass (LMBLOK) 

5. The number of sort blocks contained in 
the last sequence of the pass (MERGED 

6. The number of sort blocks which should 
be contained in a given sequence 

(OUTPTG) 

7. Two hexadecimal pointers that reflect 
the logical halves of the work area 
(P0IOTL). 

The updated checkpoint record is then 
written back on the checkpoint track. 

The output sequence block count (OUTPTG) 
is calculated by multiplying the input 
sequence block count (INPUTG) by the order 
of merge (PH2I0M) . 
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CPOADR-12, CQ-G2 



ILEAVE-10, CQ-B3 



The initial disk addresses for the input 
and output sequences of the upcoming pass 
are computed for a maximum order of merge 
(three or six, as the case may be) * The 
addresses are stored in ARADDR-FRADDR for 
input, and starting at QRADDR for output. 
As each initial address is calculated, two 
values are extracted from the work area 
table: 

1* An index value (multiple of 12), or 

pointer to the work area table (LIMITS) 

2. The logical unit address pertaining to 
the address 

These values are placed adjacent to the 
disk address in the table. 



SHTPTR, CQ-H2 



The two hexadecimal pointers to the logical 
halves of the work area table are reversed* 
The input area for the current or upcoming 
pass becomes the output area for the next 
pass, etc*, alternating between the two 
halves throughout the phase. 



The number of output sequences to be formed 
in the upcoming pass is calculated (NSR). 

Note ; The output sequences in this pass 

will be the input sequences for the 
next pass* 



INIT0M, CQ-C3 



The input interleave factors that will be 
used in the last merge of the pass (when S 
< OM) are now calculated and stored in 
REDUCE I +1 and REDUCEI+5. These are two 
instructions at label REDUCEI in the 
merge-merge routine that will place these 
input interleave factors in IRMDR+1 and 
IQUOT+1, respectively, when the last merge 
is entered. The reduced input interleave 
factors to be used when the order of merge 
is reduced are stored in IRMDRl+1 and 
IQU0T1+1. 

The merge- merge routine is then 
initialized with the order of merge to be 
used during the last merge of the pass. 
This consists of inserting one of six 
possible instructions (which are listed 
beginning at LASTM) at WAY4-4 in the 
merge-merge routine. 



OLEAVE, CQ-E3 



NEWITL, CQ-J2 



The interleave factors to be used during 
the pass are calculated (M/BPT = Q + R) and 
stored at IRMDR+1 and IQUOT+1 for input and 
at 0RMDR+1 and 0QU0T+1 for output* These 
factors will be used until it is determined 
later in the pass that they are to be 
changed. 



NEXTPASS, CC-K2 



The number of merges to be performed during 
the next pass before the output interleave 
factors are to be changed is now calculated 
and stored in MAXFAC. The output 
interleave factors to be used when MAXFAC 
is reduced to zero (when S<M 3 ) are stored 
in REDUCE0+1 and REDUCEO+5. These are two 
instructions at label REDUCEO in the 
merge-merge routine that will place these 
output interleave factors in ORMDR+1 and 
OQU0T+1, respectively, when MAXFAC=0. The 
reduced output interleave factors to be 
used when the order of merge is reduced are 
stored in ORMDR1+1 and 0QU0T1+1* 



If the upcoming pass is the last one, the 
switch at NOTLAS is made a no-op to enable 
the pass-pass routine to fetch phase 3 into 
main storage. Until such time, NOTLAS 
remains a branch to ENDPAS in the 
merge-merge routine (Chart CP). The number 
of the upcoming pass (whether for phase 2 
or phase 3) is then printed out: 



or 



•7DB1I PHASE 2, PASS nn* 
•7DC1I PHASE 3, PASS nn' 



NOTLAS, CQ-F3 



As noted in the text under label NEXTPASS, 
this location is a branch to ENDPAS in the 
merge-merge routine until it is determined 
that the upcoming pass will be the last 
pass. NOTLAS is then made a no-op and the 
routine assembles and writes the constants 
for phase 3 on the checkpoint track and 
fetches phase 3 into main storage. 
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INPUT ROUTINE , VARIABLE- LENGTH RECORDS - CR FILLA, CR-D2 



This routine fills the input areas in main 
storage with records from the input portion 
of the disk work area. At the beginning of 
a merge, all the input areas are filled and 
the compare loops are initialized. 
Subsequently, the input areas are refilled 
individually as they are depleted and, as 
input sequences are depleted, the compare 
loops are closed off one by one. 

The maximum number of input sequences (A 
through F for a 6-way merge or A through C 
for a 3 -way merge) are called in. As each 
block is read into its input area, the disk 
address of the next block in that sequence 
is calculated by a separate routine (Chart 
CY). The interleave factors for 
calculating the disk addresses are changed 
when necessary. 

The number of sequences that are called 
into the input areas is determined by the 
order of merge. When all the main storage 
input areas are filled, the program 
continues to the compare loops (Charts CS 
through CW, as the case may be). 



UST0PA, CR-B2 



The compare loops are initialized for the 
required sequences and a corresponding bit 
is set in the end-of-merge indicator 
(OMERGE): 



The unconditional branch at this location 
is a no-op as long as there are records to 
be processed in the current input sequence; 
the routine thus continues to GET (or GETB, 
etc., as the case may be). When the end of 
the current input sequence is reached, the 
compare loop for that sequence is closed 
off and the corresponding bit in OMERGE is 
inverted to a zero. Then, as long as there 
are more input sequences, a branch is made 
to an address that varies according to the 
current sequence and the order of merge; 
these addresses are listed in the table on 
Chart CR. 



GETA, CR-E2 



This location is entered not only from the 
preceding function block (FILLA) but also 
from the various compare loops as long as 
there are records in the input sequences. 
As each sequence is depleted, the entry to 
this routine is at USTOPn (to close the 
compare loop for the particular sequence) 
instead of to this point. 

The starting address of the input area 
for the current sequence (ABEGIN, BBEGIN, 
etc.) is used along with the corresponding 
logical unit address to initialize a 
channel program to get a block of records 
from disk storage. 



Seq. 
A 



Label 



Initialize 
Branches at 



OMERGE Bit RDABCD, CR-F2 



USTOPA BPUTF, BPUTE, 
BPUTD, BPUTC, 
BPUTB, FILLA 

UST0PB C0MPBA, BFA, BEA, 

BDA, BCA, FILLB 

UST0PC C0MPCB, BFB, BEB, 

BDB, FILLC 

USTOPD C0MPDC, BFC, BEC, 
FILLD 



An EXCP macro is issued and a block of 
records is read into the specified input 
area in main storage. 

For all sequences except the highest one 
(F in a 6-way merge or C in a 3-way merge), 
the routine continues to LM1 (or LM2, etc. , 
as the case may be). When the highest 
sequence is being processed, the routine 
branches directly to IRMDR. 



UST0PE COMPED, BFD, 
FILLE 



LM1, CR-G3 



F UST0PF C0MPFE, FILLF 6 

When all the specified sequences have 
been processed and the 1-bits in OMERGE 
have been inverted to 0-bits as described 
in FILLA, a branch is made to the output 
routine (Chart CX) . Until then, the 
routine continues to FILLA (or FILLB, etc., 
as the case may be). 



This location is a switch that will be on 
(no-op) only during the last merge of a 
pass. Until such time, the routine 
branches to IRMDR. 

During the last merge of a pass, a test 
is made to determine if the input 
interleave factor for the current sequence 
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should be reduced. This factor is reduced 
when the number of blocks processed in the 
current sequence is one greater than the 
number of blocks in the last sequence of a 
pass (LSTRGn). The count in LSTRGn is 
reduced by one each time this function is 
entered during the last merge of a pass, 
If the decremented count is equal to or 
higher than zero, a branch is made to 
IRMDR; if lower, the branch is to IRMDR1. 



IRMDR, CR-H4 



This location is entered when the input 
interleave factors are not to be changed. 
The factors are stored in RMDR and QUOT and 
the program continues to the routine to 
calculate the next interleaved disk address 
at CAIADR (Chart CY) . The program returns 
to this routine at BYPAS1 + 4. 



IRMDR1, CR-H5 



This location is entered when the input 
interleave factors need to be changed, the 
reduced factors for the next lower order of 
merge are stored in RMDR and QUOT and a 
branch is made to the routine to calculate 
the next interleaved disk address at CALADR 
(Chart CY). The program returns to this 
routine at BYPAS1+4. 



BYPAS1+4, CR-J3 



The current interleaved disk address (CHHR) 
is stored in ARADDR (or BRADDR* etc., as 
the case may be) and a branch is made to an 
address that varies according to the 
current sequence and the order of merge. 
These addresses are listed in the table on 
Chart CR. 



SEQUENCE F COMPARE LOOP, 
RECORDS - CS 



VARIABLE- LENGTH 



The program that was loaded into main 
storage at the start of phase 2 was for 
either a 6-way (DSORT20 4) or a 3-way merge 
(DSORT201). For a 3-way merge, the compare 
loops start at sequence C (Chart CV) . 

For a 6-way merge, the input routine 
(Chart CR) initialized certain branch 
instructions in all the compare loops from 
F through B. However, the flow through 
these loops varies not only with the order 



of merge but also, later on, with the 
depletion of records in the sequences being 
merged. As each sequence is depleted, a 
branch is made to the compare loop for the 
next lower order of merge (Charts CT 
through CW, consecutively). 

As previously described in the 
introduction to phase 2 and in the 
initialization routine (CPIOAS, Chart CN) , 
each input area has an overflow area equal 
in size to LMAX-1. These overflow areas 
are used for split records so that when the 
next block is read in the split record can 
be compacted and merging can continue. A 
split record will cause a 

depleted- input- block condition so that the 
input area will be refilled and the second 
part of the split record will thus be 
available. 

A branch- and- link to the output routine 
(Chart CX) moves each winning record, in 
turn, to the output area. The program 
keeps returning to this loop as long as 
there are records to be merged from 
sequence F, E, or D. It then exits to the 
sequence E compare loop (Chart CT). 



COMPFE, CS-B2 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when sequence F is depleted. If such 
is the case, a branch is made to COMPED in 
the sequence E compare loop (Chart CT) ; if 
not, a record from sequence F is compared 
with a record from sequence E. As long as 
F is determined to be the winner, it is 
compared with records from the other 
available sequences in turn. The routine 
thus continues in this compare loop or 
exits to another loop, depending on the 
results of each comparison. For example, 
when merging in ascending sequence: 



Function 


Winner 


Branch 


to 


COMPFE 


F 


COMPFD 






E 


COMPED 


(Chart CT) 


COMPPD 


F 


COMPFC 






D 


COMPDC 


(Chart CU) 


COMPFC 


F 


COMPFB 






C 


COMPCB 


(Chart CV) 


COMPFB 


F 


COMPFA 






B 


COMPBA 


(Chart CW) 


COMPFA 


F 


PUTF 






A 


PUTA (Chart CW) 



The branch exits are determined not only 
by the results of the comparison but also 
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by the depletion of input sequences. For 
example, if in COMPFD sequence D is found 
to be depleted, the instruction at BFC is 
an unconditional branch to COMPFC to 
compare the F record with the next C 
record. 

Another variation in the compare loop 
operation occurs when, for example, an F 
record is found to be the winner through 
COMPFE and COMPFD, Then, in COMPFC, the C 
record is found to be the winner. The exit 
from the loop, as previously described, is 
to COMPCB (Chart CV) ; however, the return 
address that is saved in register SAVEC is 
COMPFC +2. Then, assuming the C record is 
the winner through compare loops B and A, 
it is moved to the output area, and control 
is returned to the F loop at the address in 
SAVEC. The reason for entering this loop 
at COMPFC* 2 is that although C was the 
winner, the F record had already been 
determined to be winner over E and D at 
that time. Therefore, the comparing in F 
loop resumes at the point where F is 
compared with the next C record. 



PUTF, CS-H2 



The address of the winning record from 
sequence F is loaded into register MREG and 
a branch- and-link is made to the OUTFUL in 
output routine (Chart CX) . Control is 
returned to this routine at NXTFR. 



NXTFR, CS-G4 



The address for the sequence F input area 
is updated and a test is made to determine 
if the end of input sequence F has been 
reached (hexadecimal F denotes end of 
sequence). If so, a branch is made to 
USTOPF in the input routine (Chart CR) to 
close the F compare loop so that future 
entries during this merge will branch 
directly from COMPFE to COMPED, If the F 
sequence is not yet depleted, one of two 
courses of action may be taken: 

» The next record from sequence F is a 
split record - branch to SPLITF. 



SPLITF, CS-J5 



The routine initializes to move the first 
part of the split record to the overflow 
area adjacent to the F input area. A 
branch- and- 1 ink is then made to SPLITI in 
the output routine. Upon return to this 
routine, the real output address (SAVPUT) 
is reloaded in register PUTOUT and a branch 
is made to GETF in the input routine. This 
last branch is made because a split record 
signals a depleted input area. 



SEQUENCE E COMPARE LOOP, VAR I ABLE- LENGTH 
RECORDS - CT 



For a 5-way merge, the input routine (Chart 
CR) initialized certain branch instructions 
in all the compare loops from E through B. 
However, the flow through these loops 
varies not only with the order of merge but 
also, later on, with the depletion of 
records in the sequences being merged. As 
each sequence is depleted, a branch is made 
to the compare loop for the next lower 
order of merge (Charts CU through CW, 
consecutively) . 

As previously described in the 
introduction to phase 2 and in the 
initialization routine (CPIOAS, Chart CN), 
each input area has an overflow area equal 
in size to LMAX-1. These overflow areas 
are used for split records so that when the 
next block is read in the split record can 
be compacted and merging can continue. A 
split record will cause a 

depleted-input-block condition so that the 
input area will be refilled and the second 
part of the split record will thus be 
available. 

A branch- and- link to the output routine 
(Chart CX) moves each winning record, in 
turn, to the output area, The program 
keeps returning to this loop as long as 
there are records to be merged from 
sequence E. It then exits to the sequence 
D compare loop (Chart CU). 



COMPED, CT-B2 



• The next record from sequence F is not 
a split record - test for sequence F 
input area depleted. 

If the input area is depleted, a branch 
is made to GETF in the input routine to 
refill the input area, If the input area 
is not depleted, a branch is made back to 
the start of the highest available compare 
loop (COMPFE) to compare the next record. 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when sequence E is depleted. If such 
is the case, a branch is made to COMPDC in 
the sequence D compare loop (Chart CU); if 
not, a record from sequence E is compared 
with a record from sequence D. As long as 
E is determined to be the winner, it is 
compared with records from the other 
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available sequences in turn- The routine 
thus continues in this compare loop or 
exits to another loop, depending on the 
results of each comparison. For example, 
when merging in ascending sequence: 



Function 


Winner 


Branch 


to 


COMPED 


E 


COMPEC 






D 


CO.MPDC 


(Chart CU) 


COMPEC 


E 


COMPEB 






C 


COMPCB 


(Chart CV) 


COMPEB 


E 


COMPEA 






B 


COMPBA 


(Chart CW) 


COMPEA 


E 


PUTE 






A 


PUTA (Chart CW) 



The branch locations are determined not 
only by the results of the comparison but 
also by the depletion of input sequences- 
For example, if in COMPEC sequence C is 
found to be depleted, the instruction at 
BEB is an unconditional branch to COMPEB to 
compare the E record with the next B 
record* 

Another variation in the compare loop 
operation occurs when, for example, an E 
record is found to be the winner through 
COMPED and COMPEC, Then, in COMPEB, the B 
record is found to be the winner. The exit 
from the loop, as previously described, is 
to COMPBA (Chart CW) ; however, the return 
address that is saved in register SAVEB is 
COMPEB* 2. Then, assuming the B record is 
the winner through compare loop B, it is 
moved to the output area, and control is 
returned to the E loop at the address in 
SAVEB, The reason for entering this loop 
at COMPEB+2 is that although B was the 
winner, the E record had already been 
determined to be winner over D and C at 
that time. Therefore, the comparing in E 
loop resumes at the point where E is 
compared with the next B record. 



PUTE, CT-G2 



The address of the winning record from 
sequence E is loaded into register MREG and 
a branch-and-link is made to OUTFUL in the 
output routine (Chart CX) , Control is 
returned to this routine at NXTER, 



NXTER, CT-G4 



The address for the sequence E input area 
is updated and a test is made to determine 
if the end of input sequence E has been 



reached (hexadecimal F denotes end of 
sequence), If so, a branch is made to 
USTOPE in the input routine (Chart CR) to 
close the E compare loop so that future 
entries during this merge will branch 
directly from COMPED to COMPDC, If the E 
sequence is not yet depleted, one of two 
courses of action may be taken: 

• The next record from sequence is a 
split record - branch to SPLITE, 

• The next record from sequence E is not 
a split record - test for sequence E 
input area depleted, 

If the input area is depleted, a branch 
is made to GETE in the input routine to 
refill the input area. If the input area 
is not depleted, a branch is made back to 
the start of the highest available compare 
loop (COMPFE) to compare the next record. 



SPLITE, CT-J5 



The routine initializes to move the first 
part of the split record to the overflow 
area adjacent to the E input area, A 
branch- and- link is then made to SPLITI in 
the output routine. Upon return to this 
routine, the real output address (SAVPUT) 
is reloaded in register PUTOUT and a branch 
is made to GETE in the input routine, This 
last branch is made because a split record 
signals a depleted input area. 



SEQUENCE D COMPARE LOOP, VARIABLE- IE KG TH 
RECORDS - CU 



For a 4-way merge, the input routine (Chart 
CR) initialized certain branch instructions 
in all the compare loops from D through B, 
However, the flow through these loops 
varies not only with the order of merge but 
also, later on, with the depletion of 
records in the sequences being merged. As 
each sequence is depleted, a branch is made 
to the compare loop for the next lower 
order of merge (Charts CV and/ or CW) . 

As previously described in the 
introduction to phase 2 and in the 
initialization routine (CPIOAS, Chart CN) , 
each input area has an overflow area equal 
in size to LMAX-1. These overflow areas 
are used for split records so that when the 
next block is read in the split record can 
be compacted and merging can continue, A 
split record will cause a 

depleted-input -block condition so that the 
input area will be refilled and the second 
part of the split record will thus be 
available. 
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A branch-and-link to the output routine 
(Chart CX) moves each winning record, in 
turn, to the output area* The program 
keeps returning to this loop as long as 
there are records to be merged from 
sequence D. It then exits to the sequence 
C compare loop (chart CV) . 



PUTD, CU-F2 



The address of the winning record from 
sequence D is loaded into register MREG and 
a branch- and- link is made to OUTFUL of the 
output routine (Chart CX) . Control is 
returned to this routine at NXTDR- 



COMPDC, CU-B2 



NXTDR, CU-G4 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when sequence D is depleted- If such 
is the case, a branch is made to COMPCB in 
the sequence C compare loop (Chart CV); if 
not, a record from sequence D is compared 
with a record from sequence C. As long as 
D is determined to be the winner, it is 
compared with records from the other 
available sequences in turn- The routine 
thus continues in this compare loop or 
exits to another loop, depending on the 
results of each comparison- For example, 
when merging in ascending sequence: 

Function Winner Branch to 



COMPDC 


D 


COMPDB 




C 


COMPCB (Chart CV) 


COMPDB 


D 


COMPDA 




B 


COMPBA (Chart CW) 


COMPDA 


D 


PUTD 




A 


PUT A (Chart CW) 



The address for the sequence D input area 
is updated and a test is made to determine 
if the end of input sequence D has been 
reached (hexadecimal F denotes end of 
sequence). If so, a branch is made to 
USTOPD in the input routine (Chart CR) to 
close the D compare loop so that future 
entries during this merge will branch 
directly from COMPDC to COMPCB- If the D 
sequence is not yet depleted, one of two 
courses of action may be taken: 

• The next record from sequence D is a 
split record - branch to SPLITD- 

• The next record from sequence D is not 
a split record - test for sequence D 
input area depleted. 

If the input area is depleted, a branch 
is made to GETD in the input routine to 
refill the input area- If the input area 
is not depleted, a branch is made back to 
the start of the highest available compare 
loop (COMPFE) to compare the next record. 



The branch locations are determined not 
only by the results of the comparison but 
also by the depletion of input sequences. 
For example, if in COMPDB sequence B is 
found to be depleted, the instruction at 
BDA is an unconditional branch to COMPDA to 
compare the D record with the next A 
record- 

Another variation in the compare loop 
operation occurs when, for example, a D 
record is found to be the winner in COMPDC- 
Then, in COMPDB, the B record is found to 
be the winner. The exit from the loop, as 
previously described, is to COMPBA (Chart 
CW) ; however, the return address that is 
saved in register SAVES is COMPDB+2- Then, 
assuming the B record is the winner in 
compare loop A, it is moved to the output 
area, and control is returned to the D loop 
at the address in SAVEB. The reason for 
entering this loop at COMPDB + 2 is that 
although B was the winner, the D record had 
already been determined to be winner over C 
at that time- Therefore, the comparing in 
D loop resumes at the point where D is 
compared with the next B record. 



SPLITD, CU-J5 



The routine initializes to move the first 
part of the split record to the overflow 
area adjacent to the D input area. A 
branch- and- link is then made to SPLITI in 
the output routine. Upon return to this 
routine, the real output address (SAVPUT) 
is reloaded in register PUTOUT and a branch 
is made to GETD in the input routine. This 
last branch is made because a split record 
signals a depleted input area. 



SEQUENCE C COMPARE LOOP, VARIABLE- LENGTH 
RECORDS - CV 



This compare loop is entered: 

• In a 6- way merge, when the record from 
sequence C is found to be the winner in 
a previous compare loop- 
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* In a 6-way merge, when sequences F, E, 
and D have been depleted, 

• In a 3- way merge, at the completion of 
the input routine- 

For a 3- way merge, the input routine (Chart 
CR) initialized certain branch instructions 
in compare loops C and B. However, the 
flow through these loops varies not only 
with the order of merge but also, later on, 
with the depletion of records in the 
sequences being merged. As each sequence 
is depleted, a branch is made to the 
compare loop for the next lower order of 
merge (Chart CR) . 

As previously described in the 
introduction to phase 2 and in the 
initialization routine (CPIOAS, Chart CN) , 
each input area has an overflow area equal 
in size to LMAX-1. These overflow areas 
are used for split records so that when the 
next block is read in the split record can 
be compacted and merging can continue, A 
split record will cause a 

depleted- input- block condition so that the 
input area will be refilled and the second 
part of the split record will thus be 
available, 

A branch- and- link to the output routine 
(Chart CX) moves each winning record, in 
turn, to the output area. The program 
keeps returning to this loop as long as 
there are records to be merged from 
sequence C, It then exits to the sequence 
B compare loop (Chart CW) . 



For example, if in COMPCA sequence A is 
found to be depleted, the instruction at 
BPUTC is an unconditional branch to PUTC to 
prepare to move the C record to the output 
area. 

Another variation in the compare loop 
occurs when, for example, a C record is 
found to be the winner in COMPCB. Then, in 
COMPCA, the A record is found to be the 
winner. The exit from the loop, as 
previously described, is to PUTA (Chart 
CW); however, the return address that is 
saved in register SAVEA is COMPCA+2. Then, 
after the A record is moved to the output 
area, control is returned to the C loop at 
the address in SAVEA* The reason for 
entering this loop at COMPCA+2 is that 
although A was the winner, the C record had 
already been determined to be winner over 
the B record. Therefore, the comparing in 
C loop resumes at the point where C is 
compared with the next A record. 



PUTC, CV-E2 



The address of the winning record from 
sequence C is loaded into register MREG and 
a branch- and- link is made to OUTFUL in the 
output routine (Chart CX) . Control is 
returned to this routine at NXTCR. 



NXTCR, CV-G3 



:OMPCB, CV-B2 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when sequence C is depleted. If such 
is the case, a branch is made to COMPBA in 
the sequence B compare loop (Chart CW); if 
not, a record from sequence C is compared 
with a record from sequence B. If the C 
record is the winner, it is compared with a 
record from sequence A. If the C record 
wins again, the routine continues to PUTC. 

The other branch locations, in the event 
that either B or A is determined to be the 
winner, are: 

Function Winner Branch to 

COMPCB B COMPBA (Chart CW) 

COMPCA A PUTA (Chart CW) 

The branch locations are determined not 
only by the results of the comparison but 
also by the depletion of input sequences. 



The address for the sequence C input area 
is updated and a test is made to determine 
if the end of input sequence C has been 
reached (hexadecimal F denotes end of 
sequence)* If so, a branch is made to 
USTOPC in the input routine (Chart CR) to 
close the C compare loop so that future 
entries during this merge will branch 
directly from COMPCB to COMPBA. If the C 
sequence is not yet depleted, one of two 
courses of action may be taken: 

• The next record from sequence C is a 
split record - branch to SPLITC. 

» The next record from sequence C is not 
a split record - test for sequence C 
input area depleted. 

If the input area is depleted, a branch 
is made to GETC in the input routine to 
refill the input area. If the input area 
is not depleted, a branch is made back to 
the start of the highest available compare 
loop (depending on the order of merge) to 
compare the next record. 
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SPLITC, CV-J4 



PUTB, CW-D2 



The routine initializes to move the first 
part of the split record to the overflow 
area adjacent to the C input area, A 
branch- and- link is then made to SPLIT I in 
the output routine. Upon return to this 
routine, the real output address (SAVPUT) 
is reloaded in register PUTOUT and a branch 
is made to GETC in the input routine. This 
last branch is made because a split record 
signals a depleted input area. 



The address of the winning record from 
sequence B is loaded into register MREG and 
a branch- and- link is made to OUTFUL in the 
output routine (Chart CX) . Control is 
returned to this routine at NXTBR. 



NXTBR, CW-G2 



SEQUENCE B COMPARE LOOP, VARIABLE- LENGTH 
RECORDS - CW 



For a 2- way merge, the input routine (Chart 
CR) initialized certain branch instructions 
in compare loop B. However, the flow 
through this loop varies not only with the 
order of merge but also, later on, with the 
depletion of records in sequence B. When 
sequence B is depleted, a branch is made to 
prepare to move the A record to the output 
area. 

As previously described in the 
introduction to phase 2 and in the 
initialization routine (CPIOAS, Chart CN) , 
each input area has an overflow area equal 
in size to LMAX-1. These overflow areas 
are used for split records so that when the 
next block is read in the split record can 
be compacted and merging can continue. A 
split record will cause a 

depleted- input-block condition so that the 
input area will be refilled and the second 
part of the split record will thus be 
available. 

A branch- and- link to the output routine 
(Chart CX) moves each winning record, in 
turn, to the output area- The program 
keeps returning to this loop as long as 
there are records to be merged from 
sequence B. It then branches directly to 
PUTA. 



COMPBA, CW-B2 



The address for the sequence B input area 
is updated and a test is made to determine 
if the end of input sequence B has been 
reached (hexadecimal F denotes end of 
sequence). If so, a branch is made to 
USTOPB in the input routine (Chart CR) to 
close the B compare loop so that future 
entries during this merge will branch 
directly from COMPBA to PUTA. If the 
sequence is not yet depleted, one of two 
courses of action may be taken: 

• The next record from sequence B is a 
split record - branch to SPLITB. 

» The next record from sequence B is not 
a split record - test for sequence B 
input area depleted. 

If the input area is depleted, a branch 
is made to GETB in the input routine to 
refill the input area- If the input area 
is not depleted, a branch is made back to 
the start of the highest available compare 
loop (depending on the order of merge) to 
compare the next record. 



SPLITB, CW-J3 



The routine initializes to move the first 
part of the split record to the overflow 
area adjacent to the B input area. A 
branch-and-link is then made to SPLITI in 
the output routine. Upon return to this 
routine, the real output address (SAVPUT) 
is reloaded in register PUTOUT and a branch 
is made to GETB in the input routine. This 
last branch is made because a split record 
signals a depleted input area. 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when sequence B is depleted. If such 
is the case, a branch is made to PUTA; if 
not, a record from sequence B is compared 
with a record from sequence A. If the B 
record is the winner, the routine branches 
to PUTB; if the A record is the winner, the 
routine branches to PUTA. 



PUTA, CW-D4 



The address of the winning record from 
sequence A is loaded into register MREG and 
a branch-and-link is made to OUTFUL in the 
output routine (Chart CX). Control is 
returned to this routine at NXTAR. 
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NXTAR, CW-G4 



The address for the sequence A input area 
is updated and a test is made to determine 
if the end of input sequence A has been 
reached (hexadecimal F denotes end of 
sequence). If so, a branch is made to 
USTOPA in the input routine (Chart CR) to 
close the sequence A compares. If the A 
sequence is not yet depleted, one of two 
courses of action may be taken: 

• The next record from sequence A is a 
split record - branch to SPLITA. 

• The next record from sequence A is not 
a split record - test for sequence A 
input area depleted. 

If the input area is depleted, a branch 
is made to GETA in the input routine to 
refill the input area. If the input area 
is not depleted, a branch is made back to 
the start of the highest available compare 
loop (depending on the order of merge) to 
compare the next record. 



SPLITA, CW-J5 



The routine initializes to move the first 
part of the split record to the overflow 
area adjacent to the A input area. A 
branch-and-link is then made to SPLITI in 
the output routine. Upon return to this 
routine, the real output address (SAVPUT) 
is reloaded in register PUTOUT and a branch 
is made to GETA in the input routine. This 
last branch is made because a split record 
signals a depleted input area. 



OUTPUT ROUTINE, VARIABLE- LENGTH RECORDS 
CX 



This routine is entered at one of four 
locations: 



When the routine is entered at OUTFUL, 
and the entire winning record will fit in 
the output area, the winning record is 
moved to the output area. The program then 
branches back to NXTAR (or NXTBR, etc.) in 
the compare loop in which the winning 
record was found. When the winning record 
will not fit in the output area, a split 
output record is indicated and the portion 
that will fit is moved to the output area. 
The output area is then written on disk and 
the second part of the winning record is 
moved to the start of the output area. 



When the routine is entered at MMPP, an 
end-of-sequence indicator (hexadecimal FO) 
is inserted in the last byte of the current 
output block and the end-of -merge switch is 
turned on. The last output block is then 
written out, the output interleave factor 
is changed, if necessary, and the new disk 
address is calculated (Chart CY) . The 
program then branches to the merge-merge 
routine (Chart CP). 



When the routine is entered at SPLITI, 
the first portion of the split record is 
moved to the overflow area adjacent to the 
input area for the sequence. The program 
then branches back to GETA (or GETB, etc.) 
in the input routine (Chart CR) . 



When the routine is entered at SPLITM, 
the second part of the winning record that 
could not fit in the output area (when the 
routine was originally entered at OUTFUL) 
is now moved to the output area. 



When the output area is full after a 
move, the contents are first written in the 
output portion of the disk work area, the 
input interleave factor is reduced, if 
necessary, and the new disk address is 
calculated (Chart CY) . The winning record 
is then moved to the output area and the 
program returns to the compare loop in 
which the winning record was found. 



OUTFUL, when a winning record has been 
found in one of the compare loops- 

MMPP, when an end-of-merge condition is 
detected in the input routine (end of 
all input sequences). 

SPLITI, when a split record has been 
found in one of the input areas during 
the compare process. 

SPLITM, when the second part of a split 
record is to be moved to the output 
area. 



OUTFUL, CX-B2 



The record-length indicator of the record 
to be moved is extracted and used to 
determine if the entire record will fit in 
the available output area. If so, the 
routine continues to SPLITM; if the record 
is too long to fit, a branch is made to 
SPL ITO. 
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SPLITI, CX-C1 



The split-record indicator (hexadecimal C) 
is erased and the real output address is 
saved (to be restored on return to the 
compare loops). The number of bytes to be 
moved to the input overflow area are then 
calculated and a branch is made to SPLITM. 



SPLIT0, CX-B3 



The number of bytes in the second part of 
the winning record (the part that will not 
fit in the output area) is calculated. 
Then the number of bytes in the first part 
(the part that will fit) is calculated. 
The split- record indicator is inserted in 
the first part of the record and the switch 
at 0SPLIT (Chart CY) is turned on so that 
the second part of the record will be moved 
after the output block has been written on 
disk. 



SPLITM, CX-D2 



address is calculated for the next move and 
for testing if the output area is full. 



The current address of the output area 
(in register PUTOUT) is compared to the 
address of the end of the output area 
(OUTEND). If the output area is full, a 
branch is made to WRITE; if not, a branch 
is made to NXTAR (or NXTBR, etc.) in the 
compare loop in which the winning record 
was found or, in the case of split input 
records, to GETA (or GETB, etc.) in the 
input routine. Note that when the first 
part of a split output record has been 
moved to the output area, the output area 
will be full. 



MMPP, CX-B4 



The end- of- sequence indicator (hexadecimal 
FO) is inserted at the end of the block 
currently in the output area and the 
end-of-merge switch (MMPP1 on Chart CY) is 
turned on. The routine then continues to 
WRITE. 



Registers are initialized to move a record 
or a part of a record and a branch is made 
to VARMOV. 



VARM0V, CX-E2 



One of three types of moves is performed: 

• An entire winning record to the output 
area 

• The first or second part of a winning 
record to the output area 

• The first part of a split input record 
to the corresponding input overflow 
area. 

If the number of bytes to be moved is 256 
or less, the exact number of bytes is moved 
to the output area or to the input overflow 
area, as the case may be. For longer 
moves, a 256-byte portion is moved and 
registers are adjusted for the length of 
the remaining portion and for the new 
output area address. This operation is 
repeated until the remaining portion of the 
record is 256 bytes or less in length. The 
length of the remaining portion is then 
calculated and the final move is executed. 

After the required number of bytes has 
been moved, the next available output area 



WRITE, CX-C4 



The address of the start of the output area 
(0BEGIN) is restored in register PUTOUT, 
and the current disk address of the output 
sequence is moved to the current disk 
interleave address. If the BPT (blocks per 
track) is greater than 1, a branch is made 
to WTDATA; if BPT = 1 (a condition that can 
occur only during pass 1 ) , the output count 
field address is stored, the current 
interleave address is reduced by one, and 
the output area address in register PUTOUT 
is incremented by eight to put it past the 
count field. The routine then continues to 
WTDATA. 



WTDATA, CX-D4 



An EXCP macro is issued and the block of 
records is written from the main storage 
output area into the output portion of the 
disk work area. The parameters for the 
write operation are supplied by the command 
control block at 0CCB. The routine then 
continues to LM0. 
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LMO, CX-E4 



This location is a switch that will be on 
(no-op) only when the remaining input 
sequences are equal to or less than the 
order of merge squared (S<M a ). This 
condition is detected in the merge- merge 
routine (see LMOSW, Chart CP-F3) . Until 
such time, LMO is a branch to ORMDR. 

When S<M a , is a calculation and test are 
made to determine if the number of blocks 
merged to the output sequence is greater by 
one than the number of blocks contained in 
the last merge of the pass. If it is., the 
output interleave factors are to be reduced 
and a branch is made to 0RMDR1; otherwise, 
the routine continues to ORMDR. 



ORMDR, CX-G4 



This location is entered when the output 
interleave factors are not to be changed. 
The factors are stored in RHBR and QUOT and 
the program branches to the routine to 
calculate the next interleaved disk address 
(Chart CY). 



ORM0R1, CX-G5 



This location is entered when the output 
interleave factors need to foe changed* The 
reduced factors for the next lower order of 
merge are stored in RMDR and QUOT and the 
program branches to the routine to 
calculate the next interleaved disk address 
(Chart CY). 



address is calculated based on the lower 
limit of the next logical segment of the 
work area. 

See Figure 37 for an illustration of 
interleaved disk address calculations. 



CALADR, CY-C2 



The interleave factor in RMDR is used to 
calculate the next record number by adding 
it to the current disk address (CHHR) in 
register 0. If the new record number is 
greater than the maximum number of sort 
blocks per track (BPT) , it is not valid; 
the next valid record number is then 
calculated by adding the 2 5 6- complement of 
the BPT (BCOMP) to the value in register 0. 

The interleave factor in QUOT is then 
used to calculate the new head/track number 
by adding it to the newly- calculated record 
address in register 0. If the new 
head/track number exceeds nine, it is not 
valid; the next valid cyl inder/head number 
is calculated by adding the 2 56 -complement 
of ten (HCOMP) to the value in register 0. 

A test is then made to determine if the 
upper limit of the current work area extent 
has been exceeded by the new disk address 
just calculated in register 0. If not, the 
new address is valid and a branch is made 
to LMTSOK; if so, the disk address is 
re-calculated based on the lower limit of 
the next extent in the work area. 



LMTSOK, CY-E3 



C ALCULATE INTERLEAVED DISK ADDRESS ROUTINE, 
VARIABLE-LENGTH RECORDS - CY 



This routine is entered from the input 
routine (Chart CR) whenever a block is 
read, or from the output routine (Chart CX) 
whenever a block is written. 

The current interleaved disk address is 
updated with the factors in RMDR and QUOT, 
which have been placed there by the routine 
(input or output) immediately before entry 
to this routine. 

The record number and head/track number 
are calculated and checked for validity. 
If maximums are exceeded, the next higher 
valid address is calculated. The upper 
limit of the current work area extent is 
then checked and, if exceeded, a new 



The new interleaved disk address, for input 
or output, as the case may be, is stored in 
CHHR. The sequence block count (BLOCKC) is 
reduced by one. 



BSTR6, CY-F3 



If the interleaved address just calculated 
and stored was for output, it is moved from 
CHHR to ORADDR and the routine continues to 
OSPLIT. If the address was for input, a 
branch is made to BYPAS1+4 (or 8YPAS2+4, 
etc., as the case may be) in the input 
routine (Chart CR) , where the address will 
be moved from CHHR to ARADDR (or BRADDR, 
etc., as the case may be). 
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OSPLIT, CY-H3 MMPP1, CY-H4 

This location is normally a branch to This location is normally a branch back to 

MMPP1, the end-of~merge switch- However, BYPAS1+4 (or BYPAS2+4, etc.) in the input 

when a winning record is split because it routine (Chart CR). At the end of a merge, 

would not fit in the output area, OSPLIT however, MMPPl would have been changed to a 

would have been made a no-op (at SPLITO in no-op (at MMPP in the output routine) so 

the output routine)* The routine now that the program will continue to MMPP 2 in 

initializes to move the second part of the the merge-merge routine (Chart CP). 
split output record and branches back to 
SPLITM in the output routine (Chart CX) . 
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Order of Merge — 4 
Blocks Per Track — 5 



RMDR — 0004 
QUOT — 0000 
BCOMP — 00FB 
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Figure 37. Calculate Interleaved Disk Address 
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FINAL MERGE (PHASE 3) - 04 



Phase 3 consists of one of four overlays, 
depending on the order of merge and the 
input record type: 

• DSORT301 (4-way merge, fixed- length) , 
for an order of merge from 1 to 4 and 
either a fixed-length record sort or 
the ADDROUT option per fixed- or 
variable- length records. 

• DSORT302 (7-way merge, fixed- length ) , 
for an order of merge from 5 to 7 and 
either a fixed-length record sort or 
the ADDROUT option for fixed- or 
variable-length records. 

• DSORT303 (3-way merge, 

variable- length) , for an order of merge 
from 1 to 3 and variable- length 
records . 

* DSORT304 (6-way merge, 
variable-length) , for an order of merge 
from 4 to 6 and variable- length 
records. 

The overlay to be used in this phase was 
determined by phase 1 and called in by 
phase 2. 

For the purpose of describing the 
program logic, this phase has been divided 
into two general categories: 

* Fixed-length records (7 -way and 4-way 
merges), Charts DA through DL 

* Variable- length records (6-way and 
3-way merges) , Charts DM through DW 

This introduction serves for both 
categories. Where necessary, duplicate 
figures and charts are provided (with the 
required differences, if any) so that each 
category is complete in itself. For 
example, there are two major-component 
charts (04). 

Phase 3 is initialized for either disk 
or tape output. Routines for output and 
label linkage are relocated for tape 
output. 

Phase 3 performs the final merge pass, 
creating the output file from the sequences 
located in the input half of the disk work 



area. The number of input sequences is 
equal to or less than the order of merge 
used in phase 2. Merging is accomplished 
in a manner similar to the last merge of a 
phase 2 pass except that the output is 
written consecutively. 

The read- input- data and the mainline 
compare routines are similar to phase 2. 
The compute- interleave-addr ess routine is 
also similar to its phase 2 counterpart, 
except that the output from the sort is not 
interleaved. 

After a winning record has been 
determined by the compare routine, it is 
sequence- checked with the previous record 
moved to the output area. Following the 
sequence check, the previous record is 
converted in the output area if data 
conversion has been specified by the user. 

The label-linkage routine is initialized 
for label processing of the output file. 
Linkage to the transient IOCS 
label- checking routine is initialized 
within this routine, which is entered for 
open, close, end of volume, sequence error, 
and end of job. 

User programming, in phase 3, is 
accessed via exit 31 and exit 32. Exit 31 f 
located within the label-linkage routine, 
permits the user to create and write 
non-standard header and trailer labels for 
tape volumes, or to create user header and 
trailer labels for disk or tape volumes. 
Exit 32, located in the output routine, is 
available after each logical record has 
been moved into the main storage output 
area in its proper sequence and format, as 
determined by the user SORT control card. 

When the last logical record has been 
merged and written into the output file, 
the label-linkage routine passes control to 
IOCS to close the output file. The 
end-of-job routine, indicating completion 
of the sort operation, is entered when IOCS 
returns control. 

Figure 38 illustrates main storage 
layout for phase 3 for fixed-length 
records. For variable- length records, the 
layout is identical except that the move 
routine is deleted. 
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Figure 38, Phase 3 Main Storage Layout 
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PHASE 3 INITIALIZATION, FIXED-LENGTH 
RECORDS - DA 



The checkpoint record and the phase 2 
constants pertinent to phase 3 are read 
into main storage and several routines are 
initialized: 

• Mainline compare routine* 

• ADDR0UT and exit 32 routines. 

• Disk or tape output routine, 

• Disk or tape label- linkage routine* 

• Relocatable routines. 

The interleave factors used for the disk 
input routine are calculated , as are the 
constants for phase 3 input/output areas. 

For disk output, the output routine is 
executed as shown in the listing. For tape 
output, the routines at labels 0P1E0V and 
EOJTAP are relocated to LWRITE+4 and 
PH3E0J, respectively, at initialization 
time. 

A check is made to determine if user 
programming is to be included. Exits 
available to the user in this phase are 31 
and 32. 

After initialization is complete, 
control is passed to the input- data 
routine. 



INTPH3, DA-B1 



Job control, employing the system loader, 
loads phase 3 into main storage following 
the supervisor. The transfer address is 
identified by the label INTPH3. Base 
register 11 is loaded, and registers 2 and 
3 are stored. These two registers contain 
the logical unit address and the disk 
address (CHHR) of the checkpoint record, 
respectively. The checkpoint record, 
created by the assignment phase and updated 
by phases 1 and 2, is read into main 
storage (starting at CKPTRD) by the channel 
program. 



branch-and-link is made to CHEKPT to read 
these constants into main storage and 
control is returned at TESTEQ. 



TESTEQ, DA-Dl 



If multiple control data fields are 
specified in the SORT control card, the 
equal routine is required and 
initialization of the mainline compare 
branches is bypassed. If the equal routine 
is not required, the branch instructions 
following each mainline compare are 
initialized accordingly. For example, if a 
record from sequence 4 is equal to a record 
from sequence 3, the next compare is 
between records from sequences 3 and 2, not 
sequences 4 and 2. 

The sequence error routine is 
initialized according to the unit 
assignments. If SYSL0G is a 1052 
Printer -Key board, the operator may either 
ignore a sequence error and continue 
processing or cancel the job when a 
sequence error is detected. If SYSLOG is 
not a 1052 Printer-Keyboard, a sequence 
error automatically cancels the job. 



ITCOMP, DA-E1 



The mainline compare loops are initialized 
for length, location, and collating 
sequence of control data field 1. This 
information is contained in the 96-byte 
table (CF1LCT) in the checkpoint record. 

The mainline is initialized to update: 

• each input area with the length of user 
record after a winning record has been 
moved to the output area (as in phase 
2). When the ADDROUT option is being 
performed, the length of the record is 
CF+10. 

• the output area with the length of the 
output record after a winning record 
has been moved to the output area. 
This length may be equal to, less than, 
or greater than the length of of the 
input logical record. 



PH3C0N, DA-C1 



The channel program is modified to read 
phase 3 constants from the checkpoint track 
into main storage, starting at IPTCCB and 
continuing through GRADDR for a 7- way merge 
or DRADDR for a 4-way merge. A 



OPTION, DA-HI 



A test is made to determine if the ADDROUT 
option has been specified. If it has, and 
the control field data is not part of the 
disk address, a switch is set at NOCONV. 
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This prevents any translation of the 
control data associated with the 10- byte 
tag, 

A test is made to determine if exit 32 
is specified and, if it is, the switch at 
NOCONV is bypassed. If exit 32 is not 
specified, the output routine is 
initialized to bypass the exit. 



RECORD0, DA-Jl 



the user specifies UNLD (unload), each 
volume is rewound and unloaded at EOV time, 
and the next volume is rewound (see Figure 
39), 

If nonstandard labels or no labels are 
specified, the tape mark option is 
initialized. This applies only to an OPEN 
condition, In this case, the user has the 
option of inserting or not inserting a tape 
mark prior to the first record of each 
output volume. In the case of standard 
labels, a tape mark is always written by 
IOCS. 



The number of records processed by phase 1 
(RECPH1) is obtained from the checkpoint 
record. If the number of records processed 
is greater than zero, a branch is made to 
INTLEAVE; if zero, the branch is to PRTEOJ 
(Chart DP). 



INTLEAVE, DA-B3 

The interleave factors are calculated and 
the input disk address routine is 
initialized: 

The order of merge to be used in phase 3 
(number of remaining seguences) is divided 
by BPT (number of sort blocks per 2311 
track). The quotient and remainder are the 
initial interleave factors for accessing 
the input to phase 3. The OM is reduced by 
one and the process is repeated to obtain 
the reduced interleave factors. If OM is 
equal to one, reduced factors are not 
calculated. 

The input disk address routine is 
initialized by storing the interleave 
factors in LRMDR+1 and LQUOT+1, and the 
reduced interleave factors in LRMDR1+1 and 
LQUOT1+1. 



TAPLLR, DA-C3 



For disk output, this function is bypassed 
by branching to OUTDSK. For tape output, 
the CCB (OCCB) and the CCW (WTCCW) are 
initialized to write tape. The routines 
for OPEN and EOV (OP1EOV) , and the routine 
to write the last output tape block and to 
link to close file (EOJTAP), are relocated 
and initialized. 

The LLR (label- linkage routine) is 
initialized to set the rewind code for 
close time in the DTF table immediately 
after the OPEN has been executed. This 
rewind code is in effect at end-of-volume 
time (multi-volume file). For instance, if 



If non-standard or additional user 
header and trailer labels have been 
specified, the DTF is initialized to enable 
IOCS to link to the LLR which, in turn, 
links to the user through exit 31 to 
process labels. 

At this point, the initialization steps 
for tape output only are complete and a 
branch is made to CPLINK to continue 
initializing for disk and tape. 



NO ALTERNATE DRIVE 
Remarks 


USER'S REWIND 
SPECIFICATIONS 


ALTERNATE DRIVE/S 
Remarks 


OPEN 


CLOSE 


The volume is rewound 
and unloaded. The next 
volume is rewound. 


RWD 


RWD 


The volume is rewound. 
The next volume is 
rewound. 


The volume is rewound 
and unloaded. The next 
volume is rewound. 


RWD 


UNLD 


The volume is rewound 
and unloaded. The next 
volume is rewound. 


The volume is rewound 
and unloaded. The next 
volume is not rewound. 


RWD 


NORWD 


The volume is not 
rewound, and the next 
volume is not rewound. 


The volume is rewound 
and unloaded. The next 
volume is rewound. 


NORWD 


RWD 


The volume is rewound, 
and the next volume is 
rewound. 


The volume is rewound 
and unloaded. The next 
volume is rewound. 


NORWD 


UNLD 


The volume is rewound 
and unloaded. The next 
volume is rewound. 


The volume is rewound 
and unloaded. The next 
volume is not rewound. 


NORWD 


NORWD 


The volume is not 
rewound, and the next 
volume is not rewound. 



Figure 39. Rewind Action Taken at 
End-of-Volume Time for 
$ulti-Volume Tape Files 



OUTDSK, DA-D4 



Portions of Phase 3 are initialized for 
disk output: 

• Output disk address routine with the 
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number of blocks that will be written 
on each output track (BPTO). 

Output channel program to verify each 
output block as it is written on disk, 
if VERIFY option is specified. 

Disk DTFSD for additional user labels, 
if exit 31 is specified* 

Label- linkage routine, by overlaying 
DTFSD (disk) onto DTFMT (tape). 



relocated, starting at the main storage 
address contained in RLISA. This is 
necessary because, in the case of disk 
output, initialization of the output count 
field (key length and data length) could 
possibly destroy unexecuted instructions in 
routines starting at OUTAPE and ending at 
PHEX34. 



START 1, DA-B5 



CPLINK, DA-F3 



The label-linkage routine is written on the 
checkpoint track. 

Whenever an OPEN, EOV (tape only), 
CLOSE, or sequence error condition exists, 
the label- linkage routine is read into main 
storage and the condition is processed. 



RTNEQ, DA-G3 



The relocator routine is initialized to 
include the equal routine (if number of 
control data fields is greater than one) 
and the move routine. 

Note: The move routine is not optional but 
its size is. 

If user's format does not require 
conversion, phase 3 is initialized to 
bypass the linkage to the conversion 
routine. 

A branch- and- link is then made to the 
relocator routine (Chart FA) to initialize 
and relocate the move, reconversion, and 
equal routines. Control is returned by the 
relocator at START. 



START, DA-J3 



The input areas are allocated for reading 
the input sequences into main storage. The 
number of input areas required is equal to 
the number of sequences to be merged 
(PH3I0M) in phase 3. Each input area is 
equal in length to the sort block size 
(SORTL). 

The starting and ending addresses for 
each input area are calculated and stored 
in the constants AEND through GBEGIN 
(DBEGIN for 4-way merge). For example, 
AEND contains the end address (address of 
last byte) of the input sequence 1 block 
(sequence A from phase 2) , and ABEGIN 
contains the starting address of the input 
sequence 1 block. If disk output has been 
specified, the 8-byte count field (the 
field immediately following the last input 
area and adjacent to the first, byte of the 
output area) is initialized- The count 
field becomes part of each output block and 
is written out with the data portion and 
& e Y portion (if specified). The output CCW 
is initialized with the actual data count 
for either disk or tape output. 



OUTAPE, DA-C5 



The output area constants OBEGIN-OUTEND are 
calculated, and the data count for the 
input CCW is initialized with the sort 
block length. 

The size of the output area depends upon 
the user specification in the SORT control 
statements. 



The constants required for the remaining 
initialization routines are obtained from 
the checkpoint record and stored at CTDLDL 
- PHEX34. These constants contain output 
data length, output block length, and 
information pertinent to user- programmed 
routines in phase 3. 

The relocator routine has stored, in the 
full word constant RLISA, the main storage 
address of the first available byte to be 
used by the phase 3 input /output areas. 
The remaining initialization routines are 



PH3MRG, DA-D5 

Phase 3 is initialized to execute during 
the final pass: 

• a 1,2,3,4,5,6, or 7-way merge (for 
7- way merge) 

• a 1,2,3, or 4-way merge (for 4-way 
merge) 
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Bits 



Output Record 
Length (L3) 



Register 2 



15 | 16 



Input Record Length: 
LI or Ten Plus Length 
of CF's if ADDROUT. 



31 



Bits 



/ 



/ 



/ 













Regi 


ster 3 






1 
1 
1 
I 

1|2 3 


45 


6 


i 
1 

1 

l 
7 i 8 


Control Field— 1 
Length Minus 1 . 


15 


1 

1 
1 
1 
,16 


Control Fie Id— 7 Location 
or Displacement Relative 
to 1st B/te in a Record. 


31 


\ 






U ~— "^ ^ 


— — 











/ 







"^ -- — _ __ 


""- — 


Type Labels 


ADDROUT Option 


Data Format 


Record Type 


00 = standard 

01 = nonstandard 
10 = unlabeled 


01 = disk address 
10 = disk address + 
control data 


000 = binary 

001 = packed decimal 

010 = zoned decimal 

01 1 = fixed point 
100 = floating point 


- fixed- 

length 

1 = variable- 

length 



Figure 4 0. Contents of Registers at Fetch Time 



A test is made for any user programming 
(exits 31 and 32)* If a user program phase 
is to be fetched from the core image 
library, it is necessary to: 



Extract the origin address of the user 
program (stored in PHEX34) and insert 
it in USADDR. 



Load user base register (15) with user 
program origin address (USADDR) . 



Load user Link register (14) with the 
phase 3 return address (UST0P1). 



• Execute FETCH macro to load the user 

program. 

When job control has loaded the user 
program phase into main storage, control is 
transferred to the user routine so that it 
may be initialized, if so desired, before 
phase 3 is executed* If the user program 
is to be initialized at this time, the 
information in Figure 4 will be available 
in the indicated registers at user program 
fetch time* 



INPUT ROUTINE, FIXED-LENGTH RECORDS - DB 



After completing the initialization 
routine, the input areas are filled with 
records from the input portion of the disk 
work area* Phase 3 designates the input 
sequences 1, 2, 3, 4, 5, 6, and 7, 
respectively, for a 7- way merge only; in 
the case of a 4-way merge, input sequences 

are designated 1, 2, 3, and 4. 

*> 

At the start of phase 3, mainline 
compares are opened for sequence 1. A 
channel program and CCB are prepared to 
read the first block of sequence 1* After 
a block is read into an input area, the 
disk address of the next sequence 1 block 
is calculated (see compute disk address 
routine, Chart DH). The new disk address 
is stored in the input address table 
(ARADDR). 

Input areas for all other sequences are 
filled in the same manner as sequence 1* 
The number of input areas filled is 
determined by the number of remaining 
sequences* When the input areas are 
filled, control is passed to the 
ma in line -compare routine* 



The user must be able to return to the 
sort program, via the address (USTOP1) 
stored in general register 14, to open the 
mainline. If user programming is not 
specified, only the branch to USTOP1 is 
executed and the remainder of the routine 
is bypassed* 



UST0P1, DB-B2 



The mainline compares are initialized to 
open sequence 1, channel programs are 
prepared with the main storage input area 
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address contained in ABEGIN, and a sequence 
1 block is read into the input area. 

If the interleave factors need not be 
reduced, a branch is made to LRMDR (Chart 
DH) to calculate the next input interleave 
address; if the interleave factors are to 
be reduced, the next input address is 
calculated at LRMDR1 (Chart Dfl). Upon 
return to this routine, the calculated 
address is stored in ARADDR. 

For more than a 1-way merge, a branch is 
made to UST0P2; for a 1-way merge, the 
branch is to PDT1 (Chart DG) • 

At the end of sequence 1, this routine 
is entered at UST0P1 to close the mainline 
compares for this sequence. A branch is 
then made to the location stored in 
register SAVEA, depending on the current 
sequence and the order of merge. These 
locations are listed in the tables on Chart 
DB. 



If the interleave factors need not be 
reduced, a branch is made to LRMDR (Chart 
DH) to calculate the next input interleave 
address; if the interleave factors are to 
be reduced, the next input address is 
calculated at LRMDR1 (Chart DH) . Upon 
return to this routine, the calculated 
address is stored in CRADDR. 

For more than a 3 -way merge, a branch is 
made to UST0P4; for a 3- way merge, the 
branch is to COMP32 (Chart DG) for a 7-way 
program or to COMP43 (Chart DF) for a 4-way 
program. 

At the end of sequence 3, this routine 
is entered at UST0P3 to close the mainline 
compares for this sequence. A branch is 
then made to the location stored in 
register SAVEC, depending on the current 
sequence and the order of merge. These 
locations are listed in the tables on Chart 
DB. 



UST0P2, DB-B2 



USTOP4, DB-B2 



The mainline compares are initialized to 
open sequence 2, channel programs are 
prepared with the main storage input area 
address contained in BBEGIN, and a sequence 
2 block is read into the input area. 

If the interleave factors need not be 
reduced, a branch is made to LRMDR (Chart 
DH) to calculate the next input interleave 
address; if the interleave factors are to 
be reduced, the next input address is 
calculated at LRMDR1 (Chart Dfl). Upon 
return to this routine, the calculated 
address is stored in BRADDR. 



The mainline compares are initialized to 
open sequence 4, channel programs are 
prepared with the main storage input area 
address contained in DBEGIN, and a sequence 
4 block is read into the input area. 

If the interleave factors need not be 
reduced, a branch is made to LRMDR (Chart 
DH) to calculate the next input interleave 
address; if the interleave factors are to 
be reduced, the next input address is 
calculated at LRMDR1 (Chart DH) . Upon 
return to this routine, the calculated 
address is stored in DRADDR. 



For more than a 2-way merge, a branch is 
made to UST0P3; for a 2-way merge, the 
branch is to C0MP21 (Chart DG} . 



For more than a 4-way merge, a branch is 
made to UST0P5; for a 4-way merge, the 
branch is to COMP43 (Chart DF) . 



At the end of sequence 2, this routine 
is entered at UST0P2 to close the mainline 
compares for this sequence. A branch is 
then made to the location stored in 
register SAVES, depending on the current 
sequence and the order of merge. These 
locations are listed in the tables on Chart 
DB. 



At the end of sequence 4, this routine 
is entered at UST0P4 to close the mainline 
compares for this sequence. A branch is 
then made to the location stored in 
register SAVED, depending on the current 
sequence and the order of merge. These 
locations are listed in the tables on Chart 
DB. 



UST0P3, DB-B2 



UST0P5, DB-B2 



The mainline compares are initialized to 
open sequence 3, channel programs are 
prepared with the main storage input area 
address contained in CBEGIN, and a sequence 
3 block is read into the input area. 



The mainline compares are initialized to 
open sequence 5, channel programs are 
prepared with the main storage input area 
address contained in EBEGIN, and a sequence 
5 block is read into the input area. 
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If the interleave factors need not be 
reduced, a branch is made to LRMDR (Chart 
DH) to calculate the next input interleave 
address; if the interleave factors are to 
be reduced, the next input address is 
calculated at LRMDR1 (Chart DH) . Upon 
return to this routine, the calculated 
address is stored in ERADDR. 

For more than a 5- way merge, a branch is 
made to USTOP6; for a 5 -way merge, the 
branch is to COMP76 (Chart DC). 

At the end of sequence 5, this routine 
is entered at UST0P5 to close the mainline 
compares for this sequence. A branch is 
then made to COMP76 (Chart DC), 



USTOP6, DB-B2 



The mainline compares are initialized to 
open sequence 6, channel programs are 
prepared with the main storage input area 
address contained in FBEGIN, and a sequence 
6 block is read into the input area. 

If the interleave factors need not be 
reduced, a branch is made to LRMDR (Chart 
DH) to calculate the next input interleave 
address; if the interleave factors are to 
be reduced, the next input address is 
calculated at LRMDR1 (Chart DH) . Upon 
return to this routine, the calculated 
address is stored in FRADDR. 

For more than a 6-way merge, a branch is 
made to UST0P7; for a 6-way merge, the 
branch is to COMP76 (Chart DC). 

At the end of sequence 6, this routine 
is entered at UST0P6 to close the mainline 
compares for this sequence. A branch is 
then made to COMP76 (Chart DC). 



MAINLINE COMPARE ROUTINE, FIXED-LENGTH 
RECORDS - DC/DP, DE, DF f DG 



The mainline compare routine in this phase 
is the same as that in phase 2 except for 
label changes. Records are compared until 
a winning record is found. Control is then 
passed to the output routine where the 
winning record is sequence- checked before 
being moved to the output area. Before 
returning to the compare routine, a check 
is made to see if the last record in the 
output file has been processed. 

Note: The compare routine uses the 

registers labeled SAVEA, SAVEB, SAVEC, 
and SAVED as link registers for a 7-way 
merge. For a 4-way merge, the link 
registers are SAVEA and SAVEB. The 
link address for return to the mainline 
compare routine depends on the sequence 
from which a winning record is chosen. 
For example, if the winning record is 
from sequence 3, the return point 
(stored in register SAVEC) is to 
COMP73+2, COMP63+2, COMP53+2, or 
COMP43+2. 



COMP76, DC-B2 



Comparing of records starts at COMP76 for a 
7-way merge and continues through the 
mainline until a winning record is found. 
A record from sequence 7 is compared with a 
record from sequence 6. If the record from 
7 wins, it is compared with a record from 
sequence 5; as long as 7 is the winner, it 
is compared with records from the other 
available sequences, in turn. If 7 is the 
dinner at C0MP71, the sequence 7 record is 
moved to the output area by means of a 
branch to SEQCHK (Chart DJ). 



UST0P7, DB-B2 



The mainline compares are initialized to 
open sequence 7, channel programs are 
prepared with the main storage input area 
address contained in GBEGIN, and a sequence 
7 block is read into the input area. 

A branch is made to LRMDR (Chart DH) to 
calculate the next input interleave 
address. Upon return to this routine, the 
calculated address is stored in GRADDR and 
a branch is made to COMP76 (Chart DC). 

At the end of sequence 7, this routine 
is entered at UST0P7 to close the mainline 
compares for this sequence. A branch is 
then made to C0MP76 (Chart DC). 



The program then returns to this routine 
to check for a depleted sequence 7 block, 
and for end of input sequence 7. If 
sequence 7 block is not depleted, a branch 
is made to C0MP76 to compare the next 
record in sequence 7 with a record in 
sequence 6, and so on, until a winner is 
found. If sequence 7 block is depleted but 
it is not the end of the sequence, a branch 
is made to GET7 to read in another block. 

If the winning record is: 

• 6, branch to COMP65 (Chart DD). 

• 5, branch to COMP54 (Chart DE) . 

♦ 4, branch to COMP43 (Chart DF) . 

* 3, branch to COMP32 (Chart DG). 



138 IBM S/360 DOS Sort/Merge 



• 2, branch to COMP21 (Chart DG) , 

• 1, branch to PUT1 (Chart DG). 

Other conditions will alter the flow 
through the mainline compares- For 
example, if the end of sequence 6 is 
reached, the branch code at B75 is set to 
15 (unconditional branch) - The program 
then branches to compare 7:5. 

If, after moving the sequence 7 winning 
record to the output area, the end of 
sequence 7 is reached, control returns to 
UST0P7 to close all compares for sequence 
7. 

If a record in sequence 7 is compared 
against 6, 5, and 4, and 4 is determined to 
be the winning record, the address of 
COMP74+2 is stored in register SAVED and 
the routine continues to COMP43. If 
sequence 4 record is the winner over 3, 2, 
and 1, 4 is moved to the output area and 
control is returned to the mainline 
location stored in register SAVED. 
Although the sequence 4 record was found to 
be the winner, the sequence 7 record had 
already been found to be the winner over 6 
and 5 sequence records. Therefore, control 
is returned to the compare routine at the 
point where the previous sequence 7 record 
is compared to a new sequence 4 record* 
See Figure 41. 



COMP65, DD-B2 



A record from sequence 6 is compared with a 
record from sequence 5. If the record from 
6 is found to be the winner, it is compared 
with a record from sequence 4 , and so on 
until a winner is determined. 



If the winner is: 

6, branch to PUT6. 

5, branch to COMP54 (Chart DE) . 

4, branch to COMP43 (Chart DF) . 

3, branch to COMP32 (Chart DG) . 

2, branch to C0MP21 (Chart DG) . 

1, branch to PUT1 (Chart DG). 



After moving the sequence 6 record to 
the output area, the compares resume at 
COMP76 if sequence 6 block is not depleted. 

If sequence 6 block is depleted but it 
is not the end of the sequence, a branch is 
made to GET6 to fill the sequence 6 input 
area. If the end of sequence 6 is reached, 



control returns to UST0P6 to close all 
compares for sequence 6. 



COMP54, DE-B2 

A record from sequence 5 is compared with a 
record from sequence 4. If the record from 
5 is found to be the winner, it is compared 
with a record from sequence 3, and so on 
until a winning record is determined. 

If the winning record is: 

• 5, branch to PUTS. 

• 4, branch to COMP43 (Chart DF). 

• 3, branch to COMP32 (Chart DG) . 

• 2, branch to COMP21 (Chart DG). 

• 1, branch to PUT1 (Chart DG) . 

After moving the sequence record 5 to 
the output area, the compares resume at 
COMP76 if sequence 5 block is not depleted. 

If sequence 5 block is depleted but it 
is not the end of the sequence, a branch is 
made to GETS to fill the sequence 5 input 
area. If the end of sequence 5 is reached, 
control returns to UST0P5 to close all 
compares for sequence 5. 



COMP43, DF-B2 



Note: For a 4-way merge, comparing of 
records starts at COMP43 and 
continues through the mainline in 
the same manner described under 
COMP76, until a winning record is 
found. 

A record from sequence 4 is compared 
with records from sequences 3, 2, and 1. 
If the winner is: 

» 4, branch to PUT 4. 

• 3, branch to COMP32 (Chart DG) . 
» 2, branch to COMP21 (Chart DG) . 

• 1, branch to PUT1 (Chart DG) . 

After moving the sequence 4 record to 
the output area, control is returned at the 
location stored in register SAVED (for 
7-way merge) or at COMP43 (for 4-way 
merge) , if s equ ence 4 block is not 
depleted. 
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3rd Level Compare 



D:C 



2nd Level Compare 



7/X 



(D-Low) / (C-Low) (Equal) 

// \ 



C:B 




Sequence D 
Example 

1 8 j 9 




Output Record 
D-- (8) 

C-(7) 
B-- (6) 

A- (5) 



If D or C is moved to the output area, 3 compares are required before another record can be moved. 
If B is moved to the output area, 2 compares are required before another record can be moved. 
Jf A is moved to the output area, 1 compare is required before another record can be moved. 



Figure 41* Compare Tree (for a 4-way Merge) 
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If sequence 4 block is depleted but it 
is not the end of the sequence, a branch is 
made to GET4 to fill the sequence 4 input 
area. If the end of sequence 4 is reached, 
control returns to UST0P4 to close all 
compares for sequence 4. 



COMP32, DG-B1 



After moving the sequence 2 record to 
the output area, control is returned at the 
location stored in register SAVEB if 
sequence 2 block is not depleted. 

If sequence 2 block is depleted but it 
is not the end of the sequence, a branch is 
made to GET2 to fill the sequence 2 input 
area. If the end of sequence 2 is reached, 
control returns to UST0P2 to close all 
compares for sequence 2. 



A record from sequence 3 is compared with 
records from sequences 2 and 1. If the 
winner is: 

* 3, branch to PUT3. 

* 2, branch to C0MP21. 

» 1, branch to PUT1. 

After moving the sequence 3 record to 
the output area, control is returned at the 
location stored in register SAVEC (for 
7-way merge) or to COMP43 (for 4-way 
merge) , if sequence 3 block is not 
depleted. 

If sequence 3 block is depleted but it 
is not the end of the sequence, a branch is 
made to GET3 to fill the sequence 3 input 
area. If the end of sequence 3 is reached, 
control returns to UST0P3 to close all 
compares for sequence 3. 



COMP21, DG-C3 



A record from sequence 2 is compared with a 
record from sequence 1. If 2 is the 
winner, branch to PUT2; if 1 is the winner, 
branch to PUT1. 



PUT1, DG-E5 



When the winning record is from sequence 1 
and it has been moved to the output area, 
control is returned at the location stored 
in register SAVEA, if sequence 1 block is 
not depleted. If sequence 1 block is 
depleted but it is not the end of the 
sequence, a branch is made to GET1 to fill 
the sequence 1 input area. If end of 
sequence 1 is detected, control returns to 
0ST0P1 to close all compares for sequence 
1. 



COMPOTE INPUT INTERLEAVED DISK ADDRESS, 
FIXED- LENGTH RECORDS - DH 



The current input disk interleave address 
is updated by the input interleave factors. 
The interleave factor RMDR (remainder 
of: OM divided by BPT) is added to the 
record number (the R portion of CHHR) . If 
the new record number exceeds the maximum 
BPT, the next record number is computed by 
adding the 256 complement of BPT. Refer to 
Figure 42. 
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Order of Merge ~ 4 
Blocks Per Track — .5 
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QUOT - 0000 
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The head number is updated by adding 
QUOT (quotient of: OM divided by BPT). 
The new head number is then checked for 
validity; if it is greater than 9, the next 
cylinder-head number is calculated by 
adding the 256 complement of 10 • 



If the upper limit of the current work 
area section has been exceeded, the next 
work area section is accessed. A new 
interleave disk address is then calculated, 
based on the lower limit of the new work 
area section. 



CPBPTI, DH-C2 



The next input disk interleave address is 
calculated with the factors from LRMDR or 
LRMDR1, as the case may be. The program 
then returns to the input routine (Chart 
DB) to store the newly calculated 
interleave address in the input area table- 



OUTPUT ROUTINE, FIXED- LENGTH RECORDS - 
PJ,DK 



LRMDR , DH-B3 



The input disk address routine is 
initialized with the interleave factors for 
calculating the next disk address of a 
given sequence (1, 2, 3 f 4, 5, 6, or 7 for 
a 7- way merge; 1, 2, 3, or 4 for a 4-way 
merge). A branch is then made to CPBPTI. 



Note ; LRMDR is entered after a block from 
one of the input sequences has been 
read into main storage and the 
interleave factors need not be 
changed. In these cases, the number 
of blocks processed (merged to the 
output file) from the given sequence 
is equal to or less than the number 
of blocks in the last sequence 
passed to phase 3 from phase 2. 



LRMDRl, DH-B2 



The input disk address routine is 
initialized with reduced interleave factors 
for calculating the next disk address of a 
given sequence (1, 2, 3, 4, 5, or 6 for a 
7-way merge; 1, 2, or 3 for a 4-way merge). 
A branch is then made to CPBPTI. 

Note: LRiORl is similar to LRMDR except 

that it is entered after a block has 
been read into main storage from a 
sequence other than the last 
(sequence 7 for a 7-way merge, or 
sequence 4 for a 4-way merge) and 
the number of blocks merged to the 
output file from that sequence is at 
least one greater than the number of 
blocks in the last sequence passed 
to phase 3. 



When a winning record is determined by the 
mainline compare loop, this routine is 
entered for: 



Sequence- checking the output file. 

Data conversion, if specified. 

User exit 32, if specified. 

Updating the main storage output area. 

Moving a record to the main storage 
output area. 

Note : This can be either a winning 

record or a user- inserted record 
(via exit 32). 

Writing on tape or disk whenever the 
main storage output area becomes full. 

Updating the phase 3 record count. 

Open, close, EOV ( end-of -volume) , and 
sequence- error conditions. 

Executing end-of- job routine after the 
last record has been moved to the 
output area. 



Sequence checking is performed by 
comparing the current winning record (which 
is about to be moved to the main-storage 
output area) with the last winning record 
that was moved to the output area. Because 
this is the first function of the output 
routine, the first winning record is not 
sequence checked. Each record (after the 
first record) is sequence checked before 
conversion (if specified) is performed and 
before the user has access to the record in 
the output area via exit 32. 

Note: The data- conversion routine converts 
the previous record moved to the 
output area. 

For disk output, the output address is 
calculated before writing a block of 
records on the disk output unit. For the 
first output block, a dummy address 0010 
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(CHHR) is used to force the upper limit 
(also a dummy address) to be exceeded* 
This causes the initial output file extents 
and the logical unit address to be 
retrieved, so that a write command can be 
given to the output file. 

For tape output, the initialization 
routine has relocated routines 0P1E0V and 
EOJTAP to LWRITE+4 and PH3EOJ+4, 
respectively, Prior to writing the first 
output block on tape, the initial open 
condition is executed* 

End-of-job routine functions are: 

• Initialize to write last output block 
for disk or tape, 

• Initialize to write EOF record and to 
close output file (disk only)* 

» Close output file* 

• Print end- of- job messages* 

• Issue EOJ macro and return control to 
job control. 

The resident checkpoint routine is used 



to: 



Checkpoint mainline program when open, 
end-of-volume, close, or sequence- error 
conditions are found. 

Head in and link to label- linkage 
routine (LLR). 

Checkpoint the LLR. 

Restore mainline program to main 
storage and return control to 
appropriate point in phase 3* 



SEQERR, DJ-C2 



The sequence-error indicator (S-character) 
is inserted in location OPEN and a branch 
is made to OPENF (Chart DK) to checkpoint 
the mainline and read the LLR (label 
linkage routine) into main storage. 



CONVRT, DJ-C1 



If data conversion was not specified, the 
routine continues to EXIT32. If conversion 
was specified by the user, the record 
previously moved to the output area is to 
be reconverted to the format specified in 
the control statements. A branch-and-link 
is made to the selected reconversion 
routine; control is returned at EXIT32. 



EXIT32, DJ-E1 



If exit 32 was not specified, the routine 
continues at NXTOR. If exit 32 has been 
specified, user base register 15 is loaded 
with the address of the user routine 
(USADDR) and register 14 (LINK) is loaded 
with the return address. Control is then 
passed to the user program. After 
execution of the user routine, control is 
returned to the sort program via register 
14. For a detailed description of user 
functions in exit 32, refer to IBM 
System/360 Disk Operating System, 
Sort/Merge Program Specifications, Form 
C24-3444* 



NXTOR, DJ-G1 



SEQCHK, DJ-B3 



For the first winning record, the sequence 
check, conversion, and exit 32 routines are 
bypassed; a branch is made to FULOUT. For 
all subsequent records, the routine 
continues to CHKSEQ* 



The output area address in main storage is 
updated to move the next winning record, 
and the switch that permits entry to SEQCHK 
(for sequence check) is turned on (no-op). 
The routine then continues to FULOUT, 



FULOUT, DJ-C3 



CHKSEQ, DJ-B2 



The control data field (s) of the winning 
record is (are) compared with the previous 
record moved to the output area. If the 
record to be moved is out of sequence, a 
branch is made to SEQERR; if no error, the 
branch is to CONVRT. 



A test is made to determine if the main 
storage output area is full; if it is, a 
branch is made to LWRITE to write records 
from the output area onto disk or tape. 

If the output area is not full and there 
is room for at least one more record, the 
move routine (STR2) is entered to move a 
record into the output area. This record 
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may be either a winning record or a 
user- inserted record. The routine then 
continues at ZYXWZY- INSERT. 



ZYXWZY-INSERT, DJ-E3 



If exit 32 was specified and if the record 
just moved was a user- inserted record, a 
branch is made to EXIT 32 to permit multiple 
insertions by the user- Without exit 32, 
this branch is not activated- 

A count of the records processed by 
phase 1 was placed in register 10 (for the 
4-way merge program) or in location COUNTR 
(for the 7-way merge program) during the 
initialization of phase 3. Every time a 
winning record is moved to the main storage 
output area, this count is reduced by one 
(for the 7-way merge program, the count is 
loaded in register 10, decremented, and 
returned to COUNTR)- If the result is 
positive (more records remain) , a branch is 
made back to the mainline compares at 
NXT1R, NXT2R, NXT3R, etc-, as the case may 
be (Charts DC through DG), to resume 
processing- If the result is zero (last 
record has been moved into the output 
area), the routine returns to SEQCHK to 
allow the user to perform end-of-job 
operations via exit 32 (if specified) - 

Entry to SEQCHK produces a negative 
value (hexadecimal FFFFFFFF) in register 
10- This negative value is provided so 
that the user program can determine a 
last- record condition- Control is returned 
to initiate the end-of-job function. 



CPBPTO, DJ-D5 



The next output disk address (CHHR) is 
calculated; this calculation is similar to 
that for an input disk address except that 
the interleave factors are not used- The 
record number (R) is always incremented by 
one, and head and record numbers are 
checked for validity- The newly- computed 
2311 address is checked to determine if the 
upper limit of the output extent has been 
exceeded. If it has, a branch is made to 
OPHSIF (Chart D'K) to initiate retrieval of 
the next set of extents and the logical 
unit address - 



At the start of phase 3, the lower limit 
is initialized with the address 0010 
(CHHR)- The upper limit is 0000- For the 
initial output block, the first calculated 
disk address is 0011, thus forcing the 
upper limit to be exceeded- This causes 
retrieval of the initial output file 
extents and the logical unit address before 
a write command is given to the output 
file. 



The disk search address is stored in 
CHHR, and the actual address is stored in 
the count field immediately preceding the 
main storage output area- The R value of 
the search address (CCHHR) is always one 
less than the R value of the actual 2311 
address. A branch is then made to TAPEO- 



TAPEO, DJ-G5 



LWRITE, DJ-C4 



After initializing to write a block of 
records from the output area, the routine 
continues either to CPBPTO for disk output 
or to TAPEO for tape output. 

For tape output, the sub- routine at 
label OP1EOV has been relocated to LWRITE+4 
during initialization routine- A branch to 
TAPEO is usually executed to write a block 
of records on tape. The only exception 
occurs when the first block is about to be 
written- Here, as in the case of disk 
output, the open condition must be 
performed: The output volume must be 
rewound (If specified), labels checked and 
created, etc. For the first output block, 
a branch is made to OPENF (start of 
resident checkpoint routine, Chart DK) to 
read in the label- linkage routine and 
perform these functions - 



An EXCP macro is issued for IOCS to write a 
block of records to the output file (tape 
or disk)- 

This function is also used to write an 
end-of-file record on disk (data count of 
zero) after the last output block has been 
written in the disk file. 

For tape output, when an end-of-reel 
condition has been detected, a branch is 
made to CLOSE (Chart DK) to initiate the 
execution of end- of- volume and open 
functions for the next output tape volume- 
When writing the last output tape block of 
the file, an end-of -volume condition is 
forced; in this case, the branch is made to 
CLOSE (Chart DK) to initiate the closing of 
the output file. 

If disk output, or if not end of reel 
for tape output, the routine continues to 
PH3EJ1- 
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PH3EJ1, DJ-J5 



If more records remain to foe processed, a 
branch is made to STR2 to move the last 
winning record to the main-storage output 
area. For disk output only, when no more 
records remain to be processed, control is 
returned to PH3E0J. 



PH3E0J, DK-B1 



The end-of-job functions are initialized 
for disk or tape: 

* For disk output, the number of bytes 
remaining in the main-storage output 
area are calculated to determine if the 
last output block has been written. A 
byte count of zero indicates that the 
final output block was already written; 
the switch at BCLOSE is set so that an 
unconditional branch is made to OPENF-4 
to initiate the final close action. 

In either case, the computed data 
length of the last block (or of the EOF 
record) is stored in the output count 
field. The data length is then 
incremented by eight and stored in the 
write CCW (WTCCW). The branch at 
PH3EJ1 is made a no-op to allow 
re-entry to the end-of-job function at 
PH3EOJ. 

A branch is then made to LWRITE to 
write either the last output block or 
the EOF record. If the last block is 
still to be written, this end-of-job 
function is re-entered to write the EOF 
record. If the EOF record is to be 
written, the switch at BCLOSE initiates 
the final closing routine. 

* For tape output, this function is 
entered once. <The sub- routine at 
EOJTAP will have been relocated to 
PH3EOJ+4 by the initialization 
routine.) If the ADDROUT H A W option is 
specified, ten blanks are moved into 
the main- storage output area 
(significant only when last block has 
not been written). This avoids the 
possibility of a "noise" record because 
the last output block then contains at 
least 20 bytes. 

The end- of- volume indicator 
(V-character) is changed to a close 
indicator (F-character) . If last block 
has been written, a branch is made to 
CLOSE (Chart DK) . If last block has 
not been written, the switch at BCLOSE 
is made unconditional branch and a 
branch is made back to LWRITE +4 to 



write the last block. Then, when IOCS 
returns control to the mainline, a 
branch is made to CLOSE. 



CLOSE, DK-D3 



This routine is relocated, during phase 3 
initialization, to location OPlEOV+24. The 
end-of-volume indicator (V-character) is 
loaded in register for tape EOV, and a 
branch is made to RWLABL to read in the LLR 
and initiate the end-of-volume functions. 
If end of file, the EOF close indicator 
(F-character) is loaded in register so 
that the branch to RWLABL will initiate the 
close functions. 



OPENF, DK-D2 

Register is initialized for the condition 
to be processed: 

• Open - O- character 

• Close - F-character 

• Sequence error - S -character 

The routine then continues to RWLABL. 

RWLABL, DK-E2 



The R value of the disk address (CHHR) for 
the checkpoint track is initialized to 
checkpoint the mainline and read in the 
label- linkage routine. A branch is then 
made to LABETY. 



LABETY, DK-F2 

The command code in the channel program 
(WRMAIN+24) is modified to: 

1. Checkpoint mainline (write) 

2. Read in label- linkage routine (read) 

3. Checkpoint LLR (write) 

4. Read- in mainline (read) 

Refer to Chart DK for the exit points from 
LABETY after each of these listed 
functions. 
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LABEL- LINKAGE ROUTINE (LLR) , FIXED- LENGTH 
RECORDS - DL 



X31TS1, DL-G2 



The start of the LLR (label- linkage 
routine) is identified by the label LINKRT 
in the program listing. The LLR is written 
on the checkpoint track during phase 3 
initialization; it is then read into main 
storage (at the end of the supervisor, 
location RDCHPG) for open, end-of-volume, 
close, or sequence- error conditions. (A 
portion of the mainline is checkpointed 
before the LLR is read in.) When in main 
storage, the LLR receives control from the 
resident checkpoint routine through linkage 
prepared in register 14, 



The label -linkage routine initiates 
open, end-of-volume, and close operations 
for : 



Disk output - standard file labels 

Tape output - standard file labels, 
non-standard labels, or no labels* 



For disk output, the extents are obtained 
from the DTFSD table and stored in 
ORADDR-LIMITO. The logical unit address is 
obtained from the DTF table and placed in 
the output CCB at OCCB+6, 

For tape output, the rewind code in 
DTFMT is initialized for end-of-volume time 
and for close time. 

This function opens each disk extent or, 
for tape output, the initial tape volume- 

A branch is then made to LABETY 
(checkpoint routine. Chart DK) to write the 
LLR on the checkpoint track and to read the 
mainline into main storage. 



USRLAB, DL-E2 



Note : This sub- routine is entered from: 

1. Transient IOCS label-processing 
routines. 



X31LNK, DL-B2 



The condition indicator is obtained from 
register 0, stored in X31IND, and the 
indicated branch is made: 

* Indicator is * S* (sequence error) - 
branch to SEQERROR. 

* Indicator is *V f or ' F' and output is 
on tape (EOV or EOF) - branch to 
X31CLS-12. 

* Indicator is * F* and output is on disk 
(EOV or EOF) - branch to X31CLS+8, 
(This branch replaced the one for tape 
output during initialization.) 



Indicator *O f (open) 
IOCSOPEN. 



continue to 



2. User program associated with 
exit 31, 

The sub-routine is used only if exit 31 has 
been specified in the MODS control 
statement. The DTF table (DTFMT or DTFSD) 
has been initialized to indicate 
label-address exit. IOCS enters here to 
permit linkage to the user program via exit 
31. Exit 31 functions are: 

• create and write non-standard header 
and trailer labels for tape output, 

• build user header and trailer labels 
for disk or tape output. 

The user returns control here to 
indicate that: 

• all non-standard tape header and 
trailer labels have been created and 
written, or 

• a user header, or trailer label has been 
built and is to be written (with more 
to follow), or 



IOCSOPEN, DL-C2 



An OPEN macro is issued to open the output 
file. (This function is executed by the 
transient IOCS label processing routine.) 
If exit 31 is specified, IOCS returns 
control at USRLAB; in either case, this 
routine is re-entered at X31TS1. 



• the last user header or trailer label 
has been built and is to be written. 

This sub-routine returns control to IOCS 
with an LBRET macro. When user or 
non-standard label processing is complete, 
IOCS then returns to the next sequential 
instruction after the macro (OPEN, FEOV, or 
CLOSE) that initiated the label processing 
operation. 
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Note: When exit 31 is entered for label 
processing, the low-order byte of 
general register contains: 
(open), V ( end- of- volume ) , or F 
(close) to enable the execution of 
the user label function. 



• 7DC5I END OF SORT 

When IOCS returns control to this 
sub-routine, an EOJ macro is issued. 



X31CLS-12, DL-C4 (TAPE ONLY) 



For EOV or CLOSE conditions, the volume 
block count (for standard labels) is 
inserted in the DTF table to enable IOCS to 
incorporate it into the standard trailer 
label. The volume block count is made zero 
in preparation for the next volume. 



X31CLS, DL-D4 (TAPE ONLY) 



Location X31IND is tested to determine 
which of the two conditions exists. For 
end of volume, a branch is made to X31EVT; 
for close, the routine continues to 
IOCSCLOS to close the output file. 



X31EVT, DL-E4 (TAPE ONLY) 

An FEOV macro is issued and IOCS creates 
the required output labels. 

After the IOCS end-of-volume function is 
complete, the FEOV switch in the DTFMT 
table is turned off and the next output 
volume is opened. 

If an alternate drive has been assigned 
in the SYS001 ASSGN card, automatic volume 
switching is also done. 

A branch is then made to LABETY to write 
the LLR on the checkpoint track and to read 
the mainline into main storage. 



IOCSCLOS, DL-C3 



IOCS closes the output file (disk or tape) 
and returns control at PRTEOJ. 



PRTEOJ, DL-D3 



An EXCP macro is issued and the end-of-job 
messages are printed: 

* 7DC4I RECORDS PROCESSED 0000000 



SEQERROR, DL-C5 



An EXCP macro is issued and the message 
"7DC2D SEQ. ERROR" is printed on SYSLOG. 

Note : If SYSLOG is an IBM 1052 

Printer-Keyboard, the operator's 
reply to this message is either 
IGNORE or CANCEL. CANCEL results in 
program cancellation by IOCS. 
IGNORE permits processing to 
continue; a branch is made to LABETY 
to write the LLR on the checkpoint 
track and to read the mainline into 
main storage. 

If the operator's reply is incorrect 
(neither IGNORE nor CANCEL in upper or 
lower case letters), the message "7DC2A 
INVALID RESPONSE" is printed. The operator 
must retype the reply to the sequence-error 
message. 

If SYSLOG is not an IBM 1052 
Printer-Keyboard, the program is 
au t omat i c al ly can c el ed . 



PHASE 3 INITIALIZATION, VARIABLE-LENGTH 
RECORDS - DM 

The checkpoint record and the phase 2 
constants pertinent to phase 3 are read 
into main storage and several routines are 
initialized: 

• Mainline compare routine. 

• Exit 32 routines. 

• Disk or tape output routine. 

• Disk or tape label-linkage routine. 

• Relocatable routines. 

The interleave factors used for the disk 
input routine are calculated, as are the 
constants for phase 3 input/output areas. 

For disk output, the output routine is 
executed as shown in the listing. For tape 
output, the routines at labels OP1EOV and 
EOJTAP are relocated to TAPOV2+4 and 
PH3EOJ, respectively, at initialization 
time. 
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A check is made to determine if user 
programming is to be included. Exits 
available to the user in this phase are 31 
and 32. 

After initialization is complete, 
control is passed to the input- data 
routine* 



ITCOMP, DM-E1 



The mainline compare loops are initialized 
for length, location, and collating 
sequence of control data field 1* This 
information is contained in the 9 6- byte 
table (CF1LCT) in the checkpoint record. 



INTPH3, DM-B1 



Job control, employing the system loader, 
loads phase 3 into main storage following 
the supervisor. The transfer address is 
identified by the label INTPH3, Base 
register 11 is loaded, and registers 2 and 
3 are stored. These two registers contain 
the logical unit address and the disk 
address (CHHR) of the checkpoint record, 
respectively. The checkpoint record, 
created by the assignment phase and updated 
by phases 1 and 2, is read into main 
storage (starting at CKPTRD) by the channel 
program. 



PH3CON, DM-C1 



OPTION, DM-G1 



A test is made to determine if exit 32 is 
specified and, if it is, a branch is made 
to bypass the EXIT32 initialization. If 
exit 32 is not specified, the output 
routine is initialized to bypass the exit. 



RECORD 0, DM-H1 



The number of records processed by phase 1 
(RECPH1) is obtained from the checkpoint 
record. If the number of records processed 
is greater than zero, a branch is made to 
INTLEAVE; if zero, the branch is to PRTEOJ 
(Chart DW). 



The channel program is modified to read 
phase 3 constants from the checkpoint track 
into main storage, starting at IPTCCB and 
continuing through FRADDR for a 6- way merge 
or CRADDR for a 3-way merge. A 
branch- and- link is made to CHEKPT to read 
these constants into main storage and 
control is returned at TESTEQ. 



TESTEQ, DM-D1 



If multiple control data fields are 
specified in the SORT control card, the 
equal routine is required and 
initialization of the mainline compare 
branches is bypassed. If the equal routine 
is not required, the branch instructions 
following each mainline compare are 
initialized accordingly. For example, if a 
record from sequence 4 is equal to a record 
from sequence 3; the next compare is 
between records from sequences 3 and 2, not 
sequences 4 and 2. 

The sequence error routine is 
initialized according to the unit 
assignments. If SYSLOG is a 1052 
Printer -Keyboard the operator may either 
ignore a sequence error and continue 
processing or cancel the job when a 
sequence error is detected. If SYSLOG is 
not a 1052 Printer-Keyboard, a sequence 
error automatically cancels the job. 



INTLEAVE, DM-B3 



The interleave factors are calculated and 
the input disk address routine is 
initialized. 

The order of merge to be used in phase 3 
(number of remaining sequences) is divided 
by BPT (number of sort blocks per 2311 
track). The quotient and remainder are the 
initial interleave factors for accessing 
the input to phase 3. The OM is reduced by 
one and the process is repeated to obtain 
the reduced interleave factors. If OM is 
equal to one, reduced factors are not 
calculated. 

The input disk address routine is 
initialized by storing the interleave 
factors in LRMDR+1 and LQOUT+1, and the 
reduced interleave factors in LRMDR1+1 and 
LQOUTH-l. 



TAPLLR, DM-C3 



For disk output, this function is bypassed 
by branching to OUTDSK. For tape output, 
the CCB (OCCB) and the CCW (WTCCW) are 
initialized to write tape, The routines 
for open and EOV (0P1E0V), and the routine 
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to write the last output tape block and to 
link to close file (EOJTAP), are relocated 
and initialized. 



The LLR (label- linkage routine) is 
initialized to set the rewind code for 
close time in the DTF table immediately 
after the OPEN has been executed* This 
rewind code is in effect at end~of -volume 
time (multi-volume file)- For instance, if 
the user specifies UNLD (unload) , each 
volume is rewound and unloaded at E0V time, 
and the next volume is rewound (see Figure 
43). 



OUTDSK, DM-D4 



Portions of Phase 3 are initialized for 
disk output: 

• Output channel program to verify each 
output block as it is written on disk r 
if VERIFY option is specified* 

» Disk DTFSD for additional user labels, 
if exit 31 is specified. 

» label-linkage routine, by overlaying 
DTFSD (disk) onto DTFMT (tape). 



NO ALTERNATE DRIVE 
Remarks 


USER'S REWIND 
SPECIFICATIONS 


ALTERNATE DRIVE/S 
Remarks 


OPEN 


CLOSE 


The volume is rewound 
and unloaded. The next 
volume is rewound. 


RWD 


RWD 


The volume is rewound. 
The next volume is 
rewound. 


The volume is rewound 
and unloaded. The next 
volume is rewound. 


RWD 


UNLD 


The volume is rewound 
and unloaded. The next 
volume is rewound. 


The volume is rewound 
and unloaded. The next 
volume is not rewound. 


RWD 


NORWD 


The volume is not 
rewound, and the next 
volume is not rewound. 


The volume is rewound 
and unloaded. The next 
volume is rewound. 


NO RWD 


RWD 


The volume is rewound, 
and the next volume is 
rewound. 


The volume is rewound 
and unloaded. The next 
volume is rewound. 


NORWD 


UNLD 


The volume is rewound 
and unloaded . The next 
volume is rewound. 


The volume is rewound 
and unloaded. The next 
volume is not rewound. 


NORWD 


NORWD 


The volume is not 
rewound, and the next 
volume is not rewound. 



Figure 43. Rewind Action Taken at 
End-of-volurae Time for 
Multi -Volume Tape Files 



CPLINK, DM-F3 



The label- linkage routine is written on the 
checkpoint track. 

Whenever an OPEN, EOV (tape only) , 
CLOSE, or sequence error condition exists, 
the label-linkage routine is read into main 
storage and the condition is processed. 



RTNEQ, DM-G3 



The relocator routine is initialized to 
include the equal routine (if number of 
control data fields is greater than one). 
If user*s format does not require 
conversion, phase 3 is initialized to 
bypass the linkage to the conversion 
routine. 

A bra nch-and- link is then made to the 
relocator routine (Chart FA) to initialize 
and relocate the reconversion and equal 
routines. Control is returned by the 
relocator at START. 



If nonstandard labels or no labels are 
specified, the tape mark option is 
initialized. This applies only to an OPEH 
condition. In this case, the user has the 
option of inserting or not inserting a tape 
mark prior to the first record of each 
output volume. In the case of standard 
labels , a tape mark is written by IOCS. 

If nonstandard or additional user header 
and trailer labels have b^en specified, the 
DTF is initialized to enable IOCS to link 
to the LLR which, in turn, links to the 
user through exit 31 to process labels. 

At this point, the initialization steps 
for tape output only are complete and a 
branch is made to CPLINK to continue 
initializing for disk and tape. 



START, DM- J 3 



The output block length and information 
pertinent to user- programmed routines in 
phase 3 are obtained from the checkpoint 
record, and stored at BKLOUT-PHEX3i|. 

The relocator routine has stored, in the 
full word constant RLISA, the main storage 
address of the first available byte to be 
used by the phase 3 input/output areas. 
The remaining initialization routines are 
relocated, starting at the main storage 
address contained in RLISA. This is 
necessary because, in the case of disk 
output, initialization of the output count 
field (key length and data length) could 
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possibly destroy unexecuted instructions in 
routines starting at OUTAPE and ending at 
PHEX34. 



a 1, 2, or 3-way merge (for 3-way 
merge) 



START1, DM-B5 



A test is made for any user programming 
(exit 31 and 32). If a user program phase 
is to be fetched from the core image 
library, it is necessary to: 



The input areas are allocated for reading 
the input sequences into main storage. The 
number of input areas required is equal to 
the number of sequences to be merged 
(PH310M) in phase 3, Each input area is 
equal in length to the sort block size 
(SORTL) plus an overflow area equal to the 
maximum record length (LMAX) minus one. 
The overflow area is located in front of 
each input area and is used in compacting 
split input records. 

The starting and ending addresses for 
each input area are calculated and stored 
in the constants AESSD through FBEGIN 
(CBEGIN for a 3-way merge). For example, 
AEND contains the end address (address of 
last byte) of input sequence 1 block 
(sequence A from phase 2), and ABEGIN 
contains the starting address of input 
sequence 1 block. If disk output has been 
specified, the 8-byte count field (the 
field immediately following the last input 
area and adjacent to the first byte of the 
output area) is initialized. The count 
field becomes part of each output block and 
is written out with the data portion and 
key portion (if specified). The output CCW 
is initialized with the actual data count 
for either disk or tape output. 



Extract the origin address of the user 
program (stored in PHEX34) and insert 
it in USADDR. 



• Load user base register (15) with user 
program origin address (USADDR). 

• Load user link register (14) with the 
phase 3 return address (UST0P1). 

• Execute FETCH macro to load the user 
program. 

When job control has loaded the user 
program phase into main storage, control is 
transferred to the user routine so that it 
may be initiialized, if so desired, before 
phase 3 is executed. If the user program 
is to be initialized at this time* the 
information in Figure 44 will be available 
in the indicated registers at user program 
fetch time. 

The user must be able to return to the 
sort program, via the address (USTOP1) 
stored in general register 14, to open the 
mainline. If user programming is not 
specified, only the branch to USTOP1 is 
executed and the remainder of the routine 
is bypassed. 



OUTAPE, DM-C5 



The output area addresses are calculated 
and stored; the starting address in OBEGIN, 
the end address in OUTEND and OUTEND1- The 
data count for the input CCW is initialized 
with the sort block length. 

The size of the output area depends on 
the user specification in the SORT control 
statements. 



PH3MRG, DM-D5 



Phase 3 is initialized to execute during 
the final pass: 

* a 1, 2, 3, 4 f 5, or 6 -way merge (for 
6-way merge) 



INPUT ROUTINE, VARIABLE- LENGTH RECORDS - DN 



After completing the initialization 
routine, the input areas are filled with 
records from the input portion of the disk 
work area. Phase 3 designates the input 
sequences 1, 2, 3, 4, 5, and 6, 
respectively, for a 6-way merge only; in 
the case of a 3-way merge, input sequences 
are designated 1, 2, and 3. 

At the start of phase 3, mainline 
compares are opened for sequence 1. A 
channel program and CCB are prepared to 
read the first block of sequence 1. After 
a block is read into an input area, the 
disk address of the next sequence 1 block 
is calculated (see compute- disk- address 
routine, Chart DT) . The new disk address 
is stored in the input address table 
(ARADDR). 
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Bits 



Output Record 
Length (L3) 



Register 2 

I 



15|16 



Input Record Length: 
L] or Ten Plus Length 
of CF»s if ADDROUT. 



31 



Bits 



/ 



/ 



/ 









Register 3 






1 1 
1 1 
1 1 

1 1 

1|2 3J45 


1 
6 


i 

Control Field-! 
Length Minus 1 . 
7 i 8 


15 


16 


Control Field- 1 Location 
or Displacement Relative 
to 1st Byte in a Record. 


31 


\ ^- 




~~ "~-^^l — ■ — -^ 











/ 



Z- 



Type Labels 



ADDROUT Option 



Data Format 



Record Type 



00 = standard 

01 = nonstandard 
10 = unlabeled 



00 



000 = binary 

001 = packed decimal 

010 = zoned decimal 

01 1 = fixed point 
100 = floating point 



= fixed- 

length 

1 = variable- 

length 



Figure 44. Contents of Registers at Fetch Time 



Input areas for all other sequences are 
filled in the same manner as sequence 1. 
The number of input areas filled is 
determined by the number of remaining 
sequences. When the input areas are 
filled, control is passed to the 
mainline- compare routine- 



USTOP1, DN-B2 



The mainline compares are initialized to 
open sequence 1, channel programs are 
prepared with the main storage input area 
address contained in ABEGIN, and a sequence 
1 block is read into the input area* 

If the interleave factors need not be 
reduced, a branch is made to LRMDR (Chart 
DT) to calculate the next input interleave 
address ; if the interleave factors are to 
be reduced, the next input address is 
calculated at LRMDR1 (Chart DT). Upon 
return to this routine, the calculated 
address is stored in ARADDR. 

For more than a 1-way merge, a branch is 
made to UST0P2; for a 1-way merge, the 
branch is to PUT1 (Chart DS). 

At the end of sequence 1, this routine 
is entered at USTOP1 to close the mainline 
compares for this sequence. A branch is 
then made to the location stored in 
register SAVEA, depending on the current 
sequence and the order of merge* These 
locations are listed in the tables on Chart 
DN. 



USTOP2, D&-B2 



The mainline compares are initialized to 
open sequence 2, channel programs are 
prepared with the main storage input area 
address contained in BBEGIN, and a sequence 
2 block is read into the input area- 



If the interleave factors need not be 
reduced, a branch is made to LRMDR (Chart 
DT) to calculate the next input interleave 
address; if the interleave factors are to 
be reduced, the next input address is 
calculated at LRMDR! (Chart DT) . Upon 
return to this routine, the calculated 
address is stored in BRADDR. 



For more than a 2-way merge, a branch is 
made to the address in register SAVEB (if 
at least a 3-way merge and OM>3) ; for a 
2-way merge, the branch is to COMP21 (Chart 
DS). 



At the end of sequence 2, this routine 
is entered at UST0P2 to close the mainline 
compares for this sequence. A branch is 
then made to the location stored in 
register SAVEB, depending on the current 
sequence and the order of merge. These 
locations are listed in the tables on Chart 
DN. 
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UST0P3, DN-B2 



The mainline compares are initialized to 
open sequence 3, channel programs are 
prepared with the main storage input area 
address contained in CBEGIN, and a sequence 
3 block is read into the input area. 

If the interleave factors need not be 
reduced, a branch is made to LRMDR (Chart 
DT) to calculate the next input interleave 
address; if the interleave factors are to 
be reduced, the next input address is 
calculated at LRMDRl (Chart DT), Upon 
return to this routine, the calculated 
address is stored in CRADDR. 

For more than a 3 -way merge, a branch is 
made to UST0P4; for a 3- way merge, the 
branch is to COMP3 2 (Chart DS) • 

At the end of sequence 3, this routine 
is entered at UST0P3 to close the mainline 
compares for this sequence. A branch is 
then made to the location stored in 
register SAVEC, depending on the current 
sequence and the order of merge. These , 
locations are listed in the tables on Chart 
DN. 



UST0P4, DN-B2 



The mainline compares are initialized to 
open sequence 4, channel programs are 
prepared with the main storage input area 
address contained in DBEGIN, and a sequence 
4 block is read into the input area. 

If the interleave factors need not be 
reduced, a branch is made to LRMDR (Chart 
DT) to calculate the next input interleave 
address; if the interleave factors are to 
be reduced, the next input address is 
calculated at LRMDR1 (Chart DT). Upon 
return to this routine, the calculated 
address is stored in DRADDR. 

For more than a 4-way merge, a branch is 
made to UST0P5; for a 4-way merge, the 
branch is to COMP65 (Chart DP). 

At the end of sequence 4, this routine 
is entered at UST0P4 to close the mainline 
compares for this sequence. A branch is 
then made to COMP65 (Chart DP). 



USTOP5, DN-B2 



The mainline compares are initialized to 
open sequence 5, channel programs are 
prepared with the main storage input area 



address contained in EBEGIN, and a sequence 
5 block is read into the input area. 

If the interleave factors need not be 
reduced, a branch is made to LRMDR (Chart 
DT) to calculate the next input interleave 
address; if the interleave factors are to 
be reduced, the next input address is 
calculated at LRMDR1 (Chart DT) . Upon 
return to this routine, the calculated 
address is stored in ERADDR. 

For more than a 5- way merge, a branch is 
made to UST0P6; for a 5-way merge, the 
branch is to C0MP65 (Chart DP). 

At the end of sequence 5, this routine 
is entered at UST0P5 to close the mainline 
compares for this sequence. A branch is 
then made to COMP65 (Chart DP). 



UST0P6, DN-B2 



The mainline compares are initialized to 
open sequence 6, channel programs are 
prepared with the main storage input area 
address contained in FBEGIN, and a sequence 
6 block is read into the input area. 

A branch is made to LRMDR (Chart DT) to 
calculate the next input interleave 
address. Upon return to this routine, the 
calculated address is stored in FRADDR and 
a branch is made to COMP65 (Chart DP). 

At the end of sequence 6, this routine 
is entered at UST0P6 to close the mainline 
compares for this sequence. A branch is 
then made to COMP65 (Chart DP). 



RECORDS - DP, DQ, PR , DS 



The mainline compare routine in this phase 
is the same as that in phase 2 except for 
label changes. Records are compared until 
a winning record is found. Control is then 
passed to the output routine where the 
winning record is sequence- checked before 
being moved to the output area. Before 
returning to the compare routine, a check 
is made to see if the last record in the 
output file has been processed. 

Note : The compare routine uses the 

registers labeled SAVEA, SAVEB, and 
SAVEC as link registers for a 6-way 
merge. For a 3 -way merge, the link 
register is SAVEA. The link address 
for return to the mainline compare 
routine depends on the sequence from 
which a winning record is chosen. 
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For example, if the winning record 
is from sequence 3, the return point 
(stored in register SAVEC) is to 
COMP63+2, COMP53+2, or COMP43+2. 



C0MP65, DP-B2 



Comparing of records starts at COMP65 for a 
6-way merge and continues through the 
mainline until a winning record is found. 
A record from sequence 6 is compared with a 
record from sequence 5, If the record from 
sequence 6 wins, it is compared with a 
record from sequence 4; as long as 6 is the 
winner, it is compared with records from 
the other available sequences, in turn. If 
6 is the winner at C0MP61, the sequence 6 
record is moved to the output area by means 
of a branch to SEQCHK (Chart DU). 

The program then returns to this routine 
to check for a split record, for a depleted 
sequence 6 block, and for end of input 
sequence 6, If a split record, a branch is 
made to SPLIT6. If sequence 6 block is not 
depleted, a branch is made to COMP6 5 to 
compare the next record in sequence 6 with 
a record in sequence 5, and so on, until a 
winner is found. If sequence 6 block is 
depleted but it is not the end of the 
sequence, a branch is made to GET6 to read 
in another block. 



If the winning record is: 
5, branch to C0MP54 (Chart DQ) . 
4, branch to COMP43 (Chart DR). 
3, branch to C0MP32 (Chart DS). 
2, branch to C0MP21 (Chart DS). 
1, branch to PUT1 (Chart DS) . 



Other conditions will alter the flow 
through the mainline compares. For 
example, if the end of sequence 5 is 



reached, the branch code at B64 is set to 
15 (unconditional branch). The program 
then branches to compare 6:4. 

If, after moving the sequence 6 winning 
record to the output area, the end of 
sequence 6 is reached, control returns to 
UST0P6 to close all compares for sequence 
6. 

If a record in sequence 6 is compared 
against 5, 4, and 3, and 3 is determined to 
be the winning record, the address of 
C0MP63+2 is stored in register SAVEC and 
the routine continues to COMP32. If 
sequence 3 record is the winner over 2 and 
1, 3 is moved to the output area and 
control is returned to the mainline 
location stored in register SAVEC, 
Although the sequence 3 record was found to 
be the winner, the sequence 6 record had 
already been found to be the winner over 5 
and 4 sequence records. Therefore, control 
is returned to the compare routine at the 
point where the previous sequence 6 record 
is compared to a new sequence 3 record. 
See Figure 45. 



COMP54, DQ-B2 

A record from sequence 5 is compared with a 
record from sequence 4. If the record from 
5 is found to be the winner, it is compared 
with a record from sequence 3, and so on 
until a winning record is determined. 

If the winning record is: 

• 5, branch to PUTS. 

• 4, branch to COMP4 3 (Chart DR). 

• 3, branch to COMP32 (Chart DS). 

• 2, branch to COMP21 (Chart DS). 

• 1, branch to PUT1 (Chart DS) . 
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3rd Level Compare 



D:C 



2nd Level Compare 



1st Level Compare 



D:A 



7 




(D-Low) 



z \ 

/ Return \ 

D [ to 3 Level ) 

\ Compare / 




(C-Low) 




I to 2 Level 
y Compare / 




Return \ 
B ' j to 1 Level I 
\ Compare / 




Example 
1 



Sequence D 




Output Record 
D— (8) 



C— (7) 



B— (6) 



A— (5) 



If D or C is moved to the output area, 3 compares are required before another record can be moved. 
If B is moved to the output area, 2 compares are required before another record can be moved. 
If A is moved to the output area, 1 compare is required before another record can be moved. 

Figure 45* Compare Tree (for a 4-Way Merge) 
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After moving the sequence record 5 to 
the output area, the compares resume at 
COMP65 if sequence 5 block is not depleted 
or if next record is not a split record. 

If sequence 5 block is depleted but it 
is not the end of the sequence, a branch is 
made to GETS to fill the sequence 5 input 
area* if the end of sequence 5 is reached, 
control returns to UST0P5 to close all 
compares for sequence 5. If a split record 
condition exists, a branch is made to 
SPLITS. 



After moving the sequence 3 record to 
the output area, control is returned at the 
location stored in register SAVEC (for 
6- way merge) or to COMP32 (for 3-way 
merge) # if sequence 3 block is not depleted 
or if next record is not a split record. 

If sequence 3 block is depleted but it 
is not the end of the sequence, a branch is 
made to GET3 to fill the sequence 3 input 
area. If the end of sequence 3 is reached, 
control returns to UST0P3 to close all 
compares for sequence 3. If a split record 
condition exists, a branch is made to 
SPLIT3. 



COMP4 3, DR-B2 



C0MP21, DS-B3 



A record from sequence 4 is compared with 
records from sequences 3, 2, and 1. If the 
winner is: 

• 4, branch to PUT4. 

• 3, branch to COMP32 (Chart DS) 
» 2, branch to C0MP21 (Chart DS) 

• 1, branch to PUT1 (Chart DS) . 

After moving the sequence 4 record to 
the output area, control is returned to 
COMP54 if sequence 4 block is not depleted 
or if next record is not a split record. 

If sequence 4 block is depleted but it 
is not the end of the sequence, a branch is 
made to GET4 to fill the sequence 4 input 
area. If the end of sequence 4 is reached, 
control returns to USTOP4 to close all 
compares for sequence **. If a split record 
condition exists, a branch is made to 
SPLIT4. 



A record from sequence 2 is compared with a 
record from sequence 1. If 2 is the 
winner, branch to PUT2. If 1 is the 
winner, branch to PUTl. 

After moving the sequence 2 record to 
the output area, control is returned at the 
location stored in register SAVEB if 
sequence 2 block is not depleted or if next 
record is not a split record. 

If sequence 2 block is depleted but it 
is not the end of the sequence, a branch is 
made to GET2 to fill the sequence 2 input 
area. If the end of sequence 2 is reached, 
a branch is made to UST0P2 to close all 
compares for sequence 2, If a split record 
condition exists, a branch is made to 
SPLIT2 . 



PUTl, DS-D5 



COMP32, DS-A1 



Note: For a 3-way merge, comparing of 
records starts at COMP32 and 
continues through the mainline in 
the same manner described under 
COMP65, until a winning record is 
found. 



When the winning record is from sequence 1 
and it has been moved to the output area, 
control is returned at the location stored 
in register SAVEA, if sequence 1 block is 
not depleted. If sequence 1 block is 
depleted but it is not the end of the 
sequence nor a split record, a branch is 
made to GET1, If end of sequence 1 is 
reached, a branch is made to USTOP1 to 
close all compares for sequence 1. If a 
split record condition exists, a branch is 
made to SPLIT1. 



A record from sequence 3 is compared 
with records from sequences 2 and 1. If 
the winner is: 



SPLIT6, DP-H5 



3, branch to POT3- 
2, branch to COMP21. 
1, branch to PUTl. 



Note : The description of this function 
also applies to: 

♦ SPLITS, DQ-H5 
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• SPLIT4, DR-H5 

• SPLIT3, DS-H2 

• SPLIT2, DS-H4 

• SPLIT1, DS-K5 

This routine initializes to move the first 
part of the split record to the overflow 
area for the corresponding input area, A 
branch-and-link is then made to ISP LIT in 
the output routine * Upon return to this 
routine , the real output address (SAVPUT) 
is reloaded in register PUTOUT and a branch 
is made to GET6 (or GETS, etc., as the case 
may be) in the input routine- This last 
branch is made because a split record 
signals a depleted input area. 



given sequence (1, 2, 3, 4, 5, or 6 for a 
6-way merge; l f 2, or 3 for a 3-way merge). 
A branch is then made to CPBPTI. 



Note : LRMDR is entered after a block from 
one of the input sequences has been 
read into main storage and the 
interleave factors need not be 
changed. In these cases f the number 
of blocks processed (merged to the 
output file) from the given sequence 
is equal to or less than the number 
of blocks in the last sequence 
passed to phase 3 from phase 2. 



COMPUTE INPUT INTERLEAVED DISK ADDRESS, 
VARIABLE- LENGTH RECORDS - DT 



The current input disk interleave address 
is updated by the input interleave factors. 
The interleave factor RMDR (remainder 
of: OM divided by BPT) is added to the 
record number (the R portion of CHHR) . If 
the new record number exceeds the maximum 
BPT, the next record number is computed by 
adding the 256 complement of BPT. Refer to 
Figure 46. 

The head number is updated by adding 
QUOT (quotient of: OM divided by BPT). 
The new head number is then checked for 
validity; if it is greater than 9, the next 
cylinder-head number is calculated by 
adding the 256 complement of 10. 

If the upper limit of the current work 
area section has been exceeded, the next 
work area section is accessed, A new 
interleave disk address is then calculated, 
based on the lower limit of the new work 
area section. 



LRMDRl, DT-B2 



The input disk address routine is 
initialized with reduced interleave factors 
for calculating the next disk address of a 
given sequence (1, 2, 3, 4, or 5 for a 
6-way merge; 1 or 2 for a 3-way merge). A 
branch is then made to CPBPTI. 



Note : LRMDR 1 is similar to LRMDR except 

that it is entered after a block has 
been read into main storage from a 
sequence other than the last 
(sequence 6 for a 6-way merge, or 
sequence 3 for a 3-way merge) and 
the number of blocks merged to the 
output file from that sequence is at 
least one greater than the number of 
blocks in the last sequence passed 
to phase 3. 



CPBPTI, DT-C2 



LRMDR, DT-B3 



The input disk address routine is 
initialized with the interleave factors for 
calculating the next disk address of a 



The next input disk interleave address is 
calculated with the factors from LRMDR or 
LRMDR1, as the case may be. The program 
then returns to the input routine (Chart 
DN) to store the newly calculated 
interleave address in the input: area table, 
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Order of Merge — 4 
Blocks Per Track — 5 



RMDR — 0004 
QUOT — 0000 
BCOMP — 00FB 



Current Disk Address 

Add (RMDR) Factor 
Record Number Valid 
(Equal to or Less Than BPT) 

Add (Quot) Factor 
Track Number Valid 
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Figure 46. Calculate Interleaved Disk Address 
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OUTPUT ROUTINE , VARIABLE- LENGTH RECORDS 
DU, DV 



When a winning record is determined by the 
mainline compare loop, this routine is 
entered for: 



Sequence- checking the output file. 

Data conversion, if specified. 

User exit 32, if specified. 

Updating the main-storage output area. 

Moving a record to the main-storage 
output area. 

Note : This can be either a winning 

record or a user-inserted record 
(via exit 32) . 

Writing on tape or disk whenever the 
main- storage output area becomes full. 

Providing for maximum usage of track 
capacity. 

Updating the phase 3 record count. 

Open, close, EOV (end-of -volume) , and 
sequence- error conditions. 

Executing end- of- job routine after the 
last record has been moved to the 
output area. 



Sequence checking is performed by 
comparing the current winning record (which 
is about to be moved to the main-storage 
output area) with the last winning record 
that was moved to the output area. Because 
this is the first function of the output 
routine, the first winning record is not 
sequence- checked. Each record (after the 
first record) is sequence checked before 
conversion (if specified) is performed and 
before the user has access to the record in 
the output area via exit 32. 

Note: The data- conversion routine converts 
the previous record moved to the 
output area. 

For disk output, the output address is 
calculated before writing a block of 
records on the disk output unit. For the 
first output block, a dummy address 0010 
(CHER) is used to force the upper limit 
(also a dummy address) to be exceeded. 
This causes the initial output file extents 
and the logical unit address to be 
retrieved, so that a write command can be 
given to the output file. 

For tape output, the initialization 
routine has relocated routines OP1EOV and 



EOJTAP to TAPOV2+4 and PH3EOJ+4, 
respectively. Prior to writing the first 
output block on tape, the initial open 
condition is executed. 

End-of-job routine functions are: 

• Intialize to write last output block 
for disk or tape. 

• Initialize to write EOF record and to 
close output file (disk only). 

• Close output file. 

• Print end-of-job messages. 

• Issue EOJ macro and return control to 
job control. 

The resident checkpoint routine is used 



to: 



Checkpoint mainline program when open, 
end- of- volume, close, or sequence-error 
conditions are found. 

Read in and link to label-linkage 
routine (LLR) . 

Checkpoint the LLR. 

Restore mainline program to main 
storage and return control to 
appropriate point in phase 3. 



SEQCHK, DU-B2 



For the first winning record, the sequence 
check, conversion, and exit 32 routines are 
bypassed; a branch is made to FULOUT. For 
all subsequent records, the routine 
continues to CHKSEQ. 



CHKSEQ, DU-C2 



The control data field (s) of the winning 
record is (are) compared with the previous 
record moved to the output area. If the 
record to be moved is out of sequence, a 
branch, is made to SEQERR; if no error, the 
branch is to CONVRT. 



SEQERR, DU-D2 



The sequence- error indicator (S- character) 
is inserted in location OPEN and a branch 
is made to OPENF (Chart DV) to checkpoint 
the mainline and read the LLR (label 
linkage routine) into main storage. 
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C0NVRT, DU-D1 



If data conversion was not specified, the 
routine continues to EXIT32. If conversion 
was specified by the user, the record 
previously moved to the output area is to 
be reconverted to the format specified in 
the control statements, A branch-and-link 
is made to the selected reconversion 
routine; control is returned at EXIT32. 



EXIT32, DU-F1 



If exit 32 was not specified, the routine 
continues at EOJSW. If exit 32 has been 
specified, the user base register 15 is 
loaded with the address of the user routine 
(USADDR) and register 14 (LINK) is loaded 
with the return address. Control is then 
passed to the user program- After 
execution of the user routine, control is 
returned to the sort /merge program via 
register 14. For a detailed description of 
user functions in exit 32, refer to IBM 
System/ 360 Disk Operating System, 
Sort/Merge Program Specifications , Form 
C24-3444. 



EOJSW, DU-H1 



The output area address (PUTOUT) is 
increased by the length (RLI) of the last 
record moved to the ma in- storage output 
area. 

At this point, provision is made for 
maximum usage of output track capacity. In 
the initialization routine, the end address 
of the output area was stored in two 
locations: 

• OUTEND1, which contains the original 
end address throughout the phase. 

• OUTEND, which contains the original end 
address (0UTEND1) at least until after 
the first block has been written and 



the amount of track capacity remaining 
has been calculated. If this amount is 
less than the maximum output block 
size, the output area is truncated so 
that it eguals the track capacity 
remaining and the new end address is 
inserted in OUTEND for testing the next 
record. 



After the first block of a track has 
been built in the main-storage output area, 
the track capacity remaining after it is 
written on disk is calculated. If the 
track capacity remaining is equal to or 
greater than the maximum output block size, 
the block is written and the next record is 
unconditionally moved to the output area. 

If the track capacity remaining is less 
than the maximum block size, the 
main-storage output area is truncated 
(shortened) so that it equals the remaining 
track capacity, and the new end address of 
the main-storage output area is placed in 
OUTEND. The block is written on disk and 
the next record is unconditionally moved to 
the main- storage output area. 

A test is made to determine if the 
record unconditionally moved exceeds the 
shortened output area. If it does not, the 
record length indicator of the next record 
to be moved to the main- storage output area 
is tested to determine if the record will 
also fit in the output area, and the next 
output block is built as described in 
FULOUT. If the unconditionally-moved 
record does exceed the shortened output 
area, the output area will be restored to 
its original length by moving the value of 
0UTEND1 into OUTEND. The new output block, 
the first record of which is the 
unconditionally-moved record, is built and 
written on the next available track (Figure 
47). 

The branch at CHKSEQ-3 is made a no-op, 
after the first record is moved to the 
main-storage output area, to permit 
sequence- checking the next record and the 
routine continues to FULOUT (if the last 
record has not been processed) or to WLTBLK 
(if the last record has been processed). 
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Track 
3625 bytes 



Maximum 
Output Block 
Size 1500 bytes 



-OUTEND1 



this value. A switch is set (at SPLITR) to 
inform the move routine that an output 
record, not a split input record, has been 
moved. If the output area is filled 
(cannot contain another record), a branch 
is made to LWRITE; otherwise, the routine 
continues to MSPLIT to move the record. 



Records in 
bytes 



A 


B 


C 


D 


E 


F 


G 


H 


500 


600 


300 


700 


600 


'800 


400 


* 



ISPLIT, DU-BU 



Block 1 



Track 1 



Block 2 



Track 1 



A 
500 



600 



-OUTEND = OUTENDl 



Block 1 
1 400 bytes 



I Remaining track capacity 2225 
bytes >Maximum output block sizd. 



D 
700 



E 
600 



,>*-OUTEND = OUTENDl 

I (Output area not truncated) 



Block 1 
1400 bytes 


Block 2 
1 300 bytes 


Remaining 
track capacity 
925 bytes 



The output routine is entered at this point 
from SPLIT6, SPLIT5, SPLIT4, SPLIT3, 
SPLIT2, or SPLIT1. The split-record 
indicator (hexadecimal C) of the split 
record to be moved is erased. Using the 
index value stored in register 1, the 
number of bytes of the split record to be 
moved is calculated. Next, the input 
overflow area address (the starting byte 
location to which the first part of the 
record is to be moved) is computed. A 
switch is set to inform the move routine 
that a split record is being moved. A 
branch is then made to MSPLIT to move the 
first part of a split input record. 



Block 3 



Track 1 



F 
800 



^-Truncated output area 
, = 925 bytes (OUTEND) 



Block 1 
1400 bytes 



Block 2 
1 300 bytes 



Block 3 
800 bytes 



■ Truncated output area 
= 125 bytes 

• Record G=400 bytes 



Portion of 
/^ track left 
unused. 
125 



Record length exceeds 
Truncated output area 



MSPLIT, DU-C3 



This function is entered from: 

• FULOUT, if the output area is not full. 

• ISPLIT, if a split input record is to 
be moved. 

• PH3EJI, if an output block has just 
been written. 



Block 4 



ck2 



G 
400 



,>=-Output area restored to full 
I length of 1500 bytes 



Block 4 



Note: Block sizes in bytes are given for illustration only and do not 
represent the actual number of bytes consumed in writing the 
equivalent block. 

Figure 47. Maximum Use of Output Track 
Capacity 



FULOUT, DU-B3 



The record-length indicator of the record 
is extracted and stored in the location 
labeled OUTRLI+2. Register 0, which is 
used by the move routine, is loaded with 



Register 0, which contains the RLI 
(number of bytes) of the record or split 
record to be moved, is decremented by one. 
The variable- length move routine is then 
initialized and a branch is made to MOWAR. 



MO WAR, DU-D3 



One of two functions is performed at this 
point. If an output record is to be moved, 
the record is moved to the main- storage 
output area. If a split input record is to 
be moved, the first part of it is moved to 
the appropriate input overflow area. In 
either case, register 9 (MREG), which 
contains the address of the first byte to 
be moved, is updated to contain the address 
of the first byte of the next record (if 
any) within the area from which the record 
or split record was moved. The routine 
then continues to SPLITR. 
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SPLITR, DU-E3 



LWRITE, DU-C5 



If a split input record was just moved, 
this switch is an unconditional branch back 
to GET1, GET2, etc., (via register LINK) to 
fill the appropriate ma in- storage input 
area with a block of records.. If an output 
record was just moved, this switch is a 
no-op and the routine continues to INSERT. 



INSERT, DU-F3 



If exit 32 was specified and if the record 
just moved was a user-inserted record, a 
branch is made to EXIT32 to permit multiple 
insertions by the user, without exit 32, 
this branch is not activated. 

A count of the records processed by 
phase 1 was placed in register 10 (for the 
3-way merge program) or in location COUNTR 
(for the 6-way merge program) during the 
initialization of phase 3. Every time a 
winning record is moved to the ma in- storage 
output area, this count is reduced by one 
(for the 6-way merge program, the count is 
laoded in register 10, decremented, and 
returned to COUNTR). If the result is 
positive (more records remain) , a branch is 
made back to the mainline compares at 
NXTlR, NXT2R, NXT3R, etc., as the case may 
be (Charts DP through DS), to resume 
processing. If the result is zero (last 
record has been moved into the output 
area), the routine returns to SEQCHK to 
allow the user to perform end-of-job 
operations via exit 32 (if specified). 

Entry to SEQCHK produces a negative 
value (hexadecimal FFFFFFFF) in register 
10. This negative value is provided so 
that the user program can determine a 
last- record condition. Control is returned 
to initiate the end-of-job function. 



WTLBLK, DU-B5 



The entry to this function is at WTLBLK+8 
and it is used only when disk output is 
specified. Entry is made from FULOOT-U 
after the last record has been processed in 
the main-storage output area. A switch is 
set at PH3EJ1 so that the routine enters 
the end-of-job functions at PH3EOJ after 
the last output block has been written. 
The routine now continues to LWRITE. 



Functions of this sub- routine are to: 

• Write an output block when the 
main-storage output area is full. 

• Write the last output block. 

• Write an end-of-file record for disk 
output. 

The number of bytes to be written in the 
current output block is computed. This 
data count is then inserted into the BLI 
(block-length indicator) of the output 
block in main storage. For disk output, 
the data count is also inserted into the 
DLDL portion of the count field; the data 
count is incremented by eight and inserted 
in the write CCW. For tape output, the 
actual data count is inserted into the 
write CCW. 

For disk output, the 2311 track capacity 
sub- routine calculates the portion of a 
2311 track that will be used in writing the 
current output block. The method used is 
to multiply the data count by 537 and 
divide the product by 512. The result is 
then incremented by 61 to give the total 
number of bytes on a track that will be 
used to write the current block. A test is 
then made to determine if the records in 
the output area will fit on the current 
track; if not, the track capacity is 
restored to 3633 and the end-of -track 
indicator (FF) is set. The area remaining 
on the track is then calculated and stored 
in TKLEFT. 

A calculation and test are now made to 
determine if the amount of track left is 
less than the maximum output block size. 
If so, the output area is truncated to 
equal the amount of track left (for the 
reason described in the text under EOJSW). 
This lower value for the end address of the 
output area is stored in OUTEND. If this 
amount of track left is equal to or greater 
than the maximum output block size, the 
original end address of the output area is 
left in OUTEND. Whenever the output area 
is truncated, it will be restored to its 
original length at EOJSW (if the record 
moved does not fit as the first record in 
the truncated area) after the last block is 
written on the current track. 

The routine then continues to CPBPTO. 

For tape output, the sub-routine at 
label OP1EOV has been relocated to TAPOV2+4 
during the initialization routine. A 
branch to TAPEO is usually executed to 
write a block of records on tape. The only 
exception is when the first block is about 
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to be written* Here, as in the case of 
disk output, the initial open condition 
must be performed: The output volume must 
be rewound (if specified), labels checked 
and created, etc- For the first output 
block, a branch is made to OPENF (start of 
resident-checkpoint routine, Chart DV) to 
read in the label- linkage routine and to 
perform these functions* 



the file, an end-of-volume condition is 
forced; in this case, the branch is made to 
CLOSE (Chart DV) to initiate the closing of 
the output file. 



If disk output, or if not end of reel 
for tape output, the routine continues to 
PH3EJ1. 



CPBPTO, DU-D4 



The next output disk address (CHHR) is 
calculated; this calculation is similar to 
that for an input disk address except that 
the interleave factors are not used. The 
record number (R) is always incremented by 
one, and head and record numbers are 
checked for validity. The newly- computed 
2311 address is checked to determine if the 
upper limit of the output extent has been 
exceeded. If it has, a branch is made to 
OPENF (Chart DV) to initiate retrieval of 
the next set of extents and the logical 
unit address - 

At the start of phase 3, the lower limit 
is initialized with the address 0010 
(CHHR). The upper limit is 0000. For the 
initial output block, the first calculated 
disk address is 0011, thus forcing the 
upper limit to be exceeded. This causes 
retrieval of the initial output file 
extents and the logical unit address before 
a write command is given to the output 
file. 



In either case, the computed data length 
of the last block, or of the EOF record, is 
stored in the output count field. The data 
length is then incremented by eight and 
stored in the write CCW (wTCCW). A switch 
is set at PH3EJ1 (no-op) to allow re-entry 
to the end-of-job functions at PH3EOJ. 



PH3EJ1, DU-J5 



If more records remain to be processed, a 
branch is made to MSPLIT (3 -way program) or 
MSPLIT-8 (6-way program) to move the last 
winning record to the main-storage output 
area. For disk output only, when no more 
records remain to be processed, control is 
returned to PH3EOJ. 



The disk search address is stored in 
CHHR, and the actual address is stored in 
the count field immediately preceding the 
main-storage output area. The R value of 
the search address (CCHHR) is always one 
less than the R value of the actual 2311 
address. A branch is then made to TAPEO. 



TAPEO, DU-G5 



An EXCP macro is issued for IOCS to write a 
block of records to the output file (tape 
or disk) . 

This function is also used to write an 
end of file record on disk (data count of 
zero) after the last output block has been 
written in the disk file. 

For tape output, when an end-of-reel 
condition has been detected, a branch is 
made to CLOSE (Chart DV) to initiate the 
execution of end-of-volume and open 
functions for the next output tape volume. 
When writing the last output tape block of 



PH3EOJ, DV-B1 



Note: For disk output, the last block has 
been written before this sub- routine 
is entered. 

The switch at BCLOSE is set. so that an 
unconditional branch is made to 0PENF-4 to 
initiate the final close action, and a 
branch is made to LWRITE. After the EOF 
record has been written, the open indicator 
at OPEN is changed to an ' F* (signaling a 
close operation) . A branch is then made to 
OPENF to close the output file. 

For tape output, this function is 
entered once. (The sub- routine at EOJTAP 
will have been relocated to the label 
PH3E0J+4 by the initialization routine.) 
The number of bytes contained in the final 
output block is calculated and inserted in 
the channel program. The write routine is 
modified to force an end-of-volume 
condition and the end-of-volume indicator 
at EOV is changed to an 'F 1 . A branch is 
then made to LWRITE to write the last 
output block and close the file. 
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CLOSE, DV-C4 



This routine is relocated, during phase 3 
initialization to location OP1EOV+24. The 
end-of- volume indicator (V-character) is 
loaded in register for tape EOV, and a 
branch is made to RWLABL to read in the LLR 
and initiate the end-of- volume functions. 
If end of file, the EOF close indicator 
(F- character) is loaded in register so 
that the branch to RWLABL will initiate the 
close functions. 



LABEL-LINKAGE ROUTINE (LLR), 
VARIABLE- LENGTH RECORDS - DW 



The start of the LLR ( label- linkage 
routine) is identified by the label LINKRT 
in the program listing. The LLR is written 
on the checkpoint track during phase 3 
initialization; it is then read into main 
storage (at the end of the supervisor, 
location RDCHPG) for open, end-of- volume, 
close, or sequence-error conditions. (A 
portion of the mainline is checkpointed 
before the LLR is read in. ) When in main 
storage, the LLR receives control from the 
resident checkpoint routine through linkage 
prepared in register 14. 



OPENF, DV-C3 



Register is initialized for the condition 
to be processed: 

• Open - 0-character 



• Close - F-character 

• Sequence error - S -character 

The routine then continues to RWLABL. 



The label- linkage routine initiates 
open, end-of -volume, and close operations 
for: 



Disk output - standard file labels 

Tape output - standard file labels, 
non-standard labels, or no labels. 



X31LNK, DW-B2 



RWLABL, DV-D3 



The R value of the disk address (CHHR) for 
the checkpoint track is initialized to 
checkpoint the mainline and read in the 
label- linkage routine. A branch is then 
made to LABETY. 



LABETY, DV-E3 

The command code in the channel program 
(WRMAIN+24) is modified to: 

• Checkpoint mainline (write) 

• Read in label- linkage routine (read) 

• Checkpoint LLR (write) 

• Read-in mainline (read) 

Refer to Chart DV for the exit points from 
LABETY after each of these listed 
functions* 



The condition indicator is obtained from 
register 0, stored in X31IND, and the 
indicated branch is made: 

• Indicator is f S* (sequence error) - 
branch to SEQERROR. 



Indicator is f V or VF 
on tape (EOV or EOF) - 
X31CLS-12. 



1 and output is 
branch to 



Indicator is ' F f and output is on disk 
(EOV or EOF) - branch to X31CLS+8. 
(This branch replaced the one for tape 
output during initialization.) 



Indicator • O' (open) 

IOCSOPEN. 



continue to 



IOCSOPEN, DW-C2 



An OPEN macro is issued to open the output 
file. (This function is executed by the 
transient IOCS label processing routine.) 
If exit 31 is specified, IOCS returns 
control at USRLAB; in either case, this 
routine is re-entered at X31TS1. 
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X31TS1, DW-G2 



For disk output, the extents are obtained 
from the DTF SD table and stored in 
ORADDR-LIMITO. The logical unit address is 
obtained from the DTF table and placed in 
the output CCB at OCCB+6. 

For tape output, the rewind code in 
DTFMT is initialized for en d-of- volume time 
and for close time. 

This function opens each disk extent or, 
for tape output, the initial tape volume. 

A branch is then made to LABETY 
(checkpoint routine. Chart DV) to write the 
LLR on the checkpoint track and to read the 
mainline into main storage* 



Note : When exit 31 is entered for label 
processing, the low-order byte of 
general register contains 
(open) , V (end- of -volume) , or F 
(close) to enable the execution of 
the user label function* 



X31CLS-12, DW-C4 (TAPE ONLY) 



For EOV or CLOSE conditions, the volume 
block count (for standard labels) is 
inserted in the DTF table to enable IOCS to 
incorporate it into the standard trailer 
label. The volume block count is made zero 
in preparation for the next volume. 



USRLAB, DW-E2 



X31CLS, DW-D4 (TAPE ONLY) 



Note : This sub-routine is entered from: 

1. Transient IOCS label-processing 
routines. 

2. User program associated with 
exit 31. 

The sub-routine is used only if exit 31 has 
been specified in the MODS control 
statement. The DTF table (DTFMT or DTFSD) 
has been initialized to indicate 
label-address exit. IOCS enters here to 
permit linkage to the user program via exit 
31. Exit 31 functions are: 

* create and write non-standard header 
and trailer labels for tape output. 

* build user header and trailer labels 
for disk or tape output. 

The user returns control here to 
indicate that: 



Location X31IND is tested to determine 
which of the two conditions exists. For 
end of volume, a branch is made to X31EVT; 
for close, the routine continues to 
IOCSCLOS to close the output file. 



X31EVT, DW-E4 (TAPE ONLY) 



An FEOV macro is issued and IOCS creates 
the required output labels. 

After the IOCS end-of-volume function is 
complete, the FEOV switch in the DTFMT 
table is turned off and the next output 
volume is opened. If an alternate drive 
has been assigned in the SYS001 ASSGN card, 
automatic volume switching is also done. 

A branch is then made to LABETY to write 
the LLR on the checkpoint track and to read 
the mainline into main storage. 



all non-standard tape header and 
trailer labels have been created and 
written, or 

a user header or trailer label has been 
built and is to be written (with more 
to follow) , or 



IOCSCLOS, DW-C3 

IOCS closes the output file (disk or tape) 
and returns control at PRTEOJ. 



the last user header or trailer label 
has been built and is to be written. 



PRTEOJ, DW-D3 



This sub-routine returns control to IOCS 
with an LBRET macro. When user or 
non-standard label processing is complete, 
IOCS then returns to the next sequential 
instruction after the macro (OPEN, FEOV, or 
CLOSE) that initiated the label processing 
operation* 



An EXCP macro is issued and the end-of-job 
messages are printed: 

• 7DC4I RECORDS PROCESSED 0000000 

• 7DC5I END OF SORT 
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When IOCS returns control to this 
subroutine, an EOJ macro is issued. 



SEQ ERROR, DW-C5 



An EXCP macro is issued and the message 
"7DC2D SEQ. ERROR" is printed on SYSLOG. 

Note: If SYSLOG is an IBM 1052 

Printer-Keyboard, the operator's 
reply to this message is either 
IGNORE or CANCEL, CANCEL results in 
program cancellation by IOCS, 



IGNORE permits processing to 
continue; a branch is made to LABETY 
to write the LLR on the checkpoint 
track and to read the mainline into 
main storage* 

If the operator's reply is incorrect 
(neither IGNORE nor CANCEL in upper or 
lower case letters), the message "7DC2A 
INVALID RESPONSE* is printed- The operator 
must retype the reply to the sequence-error 
message. 

If SYSLOG is not an IBM 1052 
Printer -Key board, the program is 
automatically canceled. 
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MERGE ONLY (PHASE 4) - 05 



This phase merges up to four pre-sorted 
files into one sequential file- This 
operation is controlled by a MERGE 
statement in a control card. If a MERGE 
statement is detected while the assignment 
phase is processing the control cards, the 
program initializes for a merge-only 
operation and phase 4 is fetched. 

Input for this phase may be on tape or 
disk or both; the output may be on tape or 
disk. 

Phase 4 consists of two overlays: 

• DSORT401 - open/ close routine and its 
initialization, sequence error routine, 
and end-of-job messages. 

» DSORT402 - merge mainline and its 

initialization (includes input, compare 
loops, output, error, end-of-job, and 
optional routines). 

DSORT401 is fetched first, the 
open /close routine is initialized and 
written on disk (checkpoint track 2), and 
DSORT402 is fetched. The merge mainline is 
initialized and a portion of it is written 
on disk (checkpoint track 1) ; part of the 
mainline resides permanently in storage. 
DSORT401 is then called in to open the 
output file, written back on disk, and the 
non-resident portion of DSORT4 02 is called 
in to prepare to open the first input file. 
The two overlays are then called in, 
executed, and written back on disk 
alternately as many times as necessary to 
perform the initial open and the initial 
read of all the input files (from 1 to 4, 
depending on the order of merge) . 

The merging process is similar to that 
of phase 3; the major differences are: 



Output records are not interleaved 



• The restart feature cannot be used 

» Data that is not in binary format is 
both converted and reconverted 

After all the files are open and the 
input areas filled, records are compared to 
determine the winner in the user- specif ied 
sequence (ascending or descending). The 
winner is sequence- checked and moved to the 
output area. As each input area is 
depleted, it is refilled from its 
corresponding file until the file is 
depleted. As the output area is filled, it 
is written on disk or tape, as specified. 
End-of-job is reached when all input files 
have been depleted and the last output 
block has been written. 

Overlay DSORT401 is called in at: 

• End of initialization, to open output 
file and all input files 

• End- of- volume, to close and open input 
volumes 

• End-of-file, to close each input file 

• Sequence- error, to process the error 

• End-of-job, to close the output file 
and print end-of-job messages 

User exits 41 to 45, inclusive, are 
provided in this phase; 41 and 44 in 
DSORT401 and 42, 43, and 45 in DSORT402. 

Figure 48 is a layout of main storage, 
showing the two overlays during 
initialization and execution. 
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Figure 48. Phase 4 Main Storage Layout 
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INITIALIZE OPEN/CLOSE ROUTINE - EA 



Using the checkpoint record that was 
created by the assignment phase , this 
routine prepares the open/close routine 
according to number and type of files for 
use with the merge mainline. Its functions 
are: 

• Read in checkpoint record 

• Initialize sequence- error routine for 
type of message 

• Initialize output DTF table for disk or 
tape and for user and label options 

• Initialize input DTF tables (number 
depends on OM) for disk or tape (or 
combination of both) and for user and 
label options 

• Write the initialized open/close 
routine on disk 



A test is then made to determine if 
SYSLOG is a 1052 Printer- Key board and, if 
so, a branch is made to INIT1. If SYSLOG 
is other than a 1052, the sequence- error 
routine (Chart EL) is initialized (at 
instruction RESPONSE) to branch back to the 
merge mainline through location EXIT in the 
open/close routine, (Without a 1052, 
operator response is not possible; message 
• 7D.D2D 1 will be printed and processing will 
continue-) After modifying instruction 
RESPONSE, this routine continues to INIT1. 



INIT1, EA-H1 



Location INOUT is tested to determine if 
the output is to be on disk and, if not, a 
branch is made to TAPOUT. For disk output: 



The routine then fetches the merge mainline 
(overlay DSORT402). 



Initialize DTF table FILEOD for disk 
output. 



Store EOF address in DTF table- 



PANCO, EA-B1 



The mainline base register (RG11) is loaded 
and the contents of registers RG2 and RG3 
are stored: 



Change DTF table name from FILEOD to 
FILEO (this table was assembled as 
FILEOD to distinguish it from the tape 
output DTF table, FILEO) - 



* RG2 - logical unit address of 
checkpoint - stored in LOGUNIT 

» RG3 - address of first track of the 

work area - stored in TRACK1 and TRACK2 

A test is made to determine if both 
tracks of the work area are in the same 
cylinder. If they are, the head number is 
increased by one and the new head address 
is stored in TRACK2+2; the routine then 
branches to GETAB. If the tracks are not 
in the same cylinder, the address of the 
second track of the work area will be the 
next cylinder, head zero; this address is 
stored in TRACK2 and the routine continues 
to GETAB. 



Test for user exit 44 and, if not 
specified, turn off the user label 
address bit in the DTF table. 



Relocate the DTF table to location 

FILEO. 



Initialize the open/close routine for 
disk output by modifying the branches 
at NIEFO, OUTPUT, and OUTDK. 



The routine then branches to IN IT 2. 



GETAB, EA-El 



TAPOUT, EA-J1 



The checkpoint record that was created by 
the assignment phase is read into location 
FORMAT in main storage for use by phase 4. 
The address of the user routines and the 
order of merge are stored in USADDR and OM, 
respectively. 



The tape output DTF table (FILEO) is 
initialized for several options, depending 
on the results of tests: 
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Option 


Location 


Bit 


Rewind first volume 


OUTOPT 


3 


Close unload 


OUTOPT 


5 


Close no-rewind 


OUTOPT 


7 


No tapemark 


NOTPMK 


2 


Non-standard labels 


INOUT 


2 


Unlabeled file 


INOUT 


1 


User exit 44 


PH34EX 


4 



(NOTE: If unlabeled file, user exit 44 not 
used) 

The bit in FILEO + 36 that denotes physical 
DTF is turned off to convert to logical DTF 
(to prevent generation of information not 
needed by this program , the DTF was 
assembled as DTFPH). A branch is then made 
to INIT2. 



INIT2, EA-A3 



Depending on the order of merge , one of the 
instructions INIT3, INIT4, or INIT5 is made 
an unconditional branch to CHKPOINT to 
permit exit from this routine after the 
required input DTF tables have been 



initialized. For example , if the order of 
merge is two, (1) the instruction at INIT4 
is made an unconditional branch, (2) the 
DTF tables for files A and B (disk or tape, 
as the case may be) are initialized, and 
(3) the routine branches to CHKPOINT 
without initializing the DTF tables for 
files C and D- 



When the branch to CHKPOINT has been 
initialized, location INPUTA is tested to 
determine whether file A is on disk or on 
tape: 

• If on disk, load the address of input 
DTF table FILEAD in register R3, load 
the address of input DTF table FILEA in 
R4 (to permit relocating FILEAD later), 
and branch- and- link to DISK* 

• If on tape, load the address of input 
DTF table FILEA in register R3, load 
the return address (INIT3) in register 
LINK, and branch to TAPE* 

A similar procedure is followed at 
INIT3, INIT4, and INIT5 (as required by the 
order of merge) except that if the file is 
on tape, INPUTB (and INPUTC and INPUTD, as 
the case may be) are moved to location 
INPUTA just before the branch to TAPE. 
(This permits using just the one location 
(at INPUTA) to check each tape file, in 
turn, for the options detailed under TAPE. ) 

The variations for each file are: 



Disk Input Files 







DTF 


Table 






Location 


Test 


in RG3 


in RG4 


BAL to 


Return to 


INIT3 


INPUTB 


FILEBD 


FILEB 


DISK 


INIT4 


INIT4 


INPUTC 


FILECD 


FILEC 


DISK 


I NITS 


INIT5 


INPUTD 


FILEDD 


FILED 


DISK 


CHKPOINT 


Tape Input 


Files 











DTF Table Address 



Location 


Test 


in RG3 


in LINK 


Branch to 


INIT3 


INPUTB 


FILEB 


INIT4 


TAPE 


IN IT 4 


INPUTC 


FILEC 


INIT5 


TAPE 


IN IT 5 


INPUTD 


FILED 


CHKPOINT 


TAPE 



Return to 

INIT4 
INIT5 
CHKPOINT 
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DISK, EA-C3 



The disk input DTF table FILEAD (or FILEBD, 
FILECD, or FILEDD) is initialized with EOF 
address EOFDK, its name is changed to FILEA 
(or FILEB, FILEC, or FILED, as the case may 
be) , and it is relocated to overlay the 
tape DTF table for that particular input 
file, A branch is then made to the address 
in register LINK (see table following the 
text at INIT2). 



TAPE, EA-C4 



The tape input DTF table FILEA (or FILEB, 
FILEC, or FILED, as the case may be) is 
initialized for several options depending 
on the results of tests: 



the READ DATA command* Registers RG2 
through RG5 are loaded with information for 
the next overlay (merge mainline) : 



Option 


Location 


Bit 


Open rewind 


TBKLAB 


3 


Close unload 


TBKLAB 


5 


Close no- rewind 


TBKLAB 


7 


Non-standard labels 


INPUTn 


2 


Unlabeled file 


INPUTn 


1 


User exit 41 


PH34EX 


7 



(Note: If unlabeled file, user exit 41 not 
used) 

The bit in FILEn+3 6 that denotes physical 
DTF is turned off to convert to logical DTF 
(to prevent generation of information not 
needed by this program, the DTF was 
assembled as DTFPH) . A branch is then made 
to the address in register LINK (see table 
following the text at INIT2) - 



CHK POINT, EA-G4 



The second track of the work area is 
formatted and a checkpoint record of the 
initialized open/close routine is written 
on disk. 



FETCH, EA-H4 



The record addresses stored in locations 
TRACK 1 and TRACK 2 are set to 1 so that in 
the merge mainline the checkpoint may be 
read from, and written back on, disk with 



Register Load With 



Contents 



RG2 L0GUNIT Logical unit address 

of checkpoint 

RG3 TRACK1 Address of first 

track in disk work 
area 

RG4 TRACK2 Address of second 

track in disk work 
area 

RG5 LENGTH Length of the 

checkpoint record 

The merge mainline (overlay DSORT402) is 
then fetched into main storage for 
execution. 



INITIALIZE MAINLINE 



KB 



The checkpoint record created by the 
assignment phase for phase 4 is read into 
main storage. This routine then: 

• Initializes for input files on tape or 
disk or both. 

» Includes or excludes bypass and verify 
options. 

• Provides for conversion and 
reconversion routines and for user*s 
routines, if required. Exits available 
to the user are 42, 43, and 45. 

• Initializes for fixed- or 
variable- length records and for 
variable blocking. 

• Initializes for tape or disk output. 

• Initializes for ascending or descending 
sequence and for output sequence 
checking. 

• Initializes and relocates optional 
routines, if required. 

» Computes constants for I/O areas. 

• Initializes input and compare loops for 
order of merge. 

• Stores file and record information for 
the user. 

• Fetches user routines (if required). 

• Branches to open/close routine for 
initial open of all files. 
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After initialization is complete, the 
program continues to the input routine 
(Chart EC). 



PAN CO, EB-B1 



The base registers are loaded and the 
contents of registers RG2 through RG5 f 
which contain information for 
checkpointing, are stored* (See text for 
FETCH in the initialization of the 
open/close routine, Chart EA, for contents 
of RG2 through RG5). An EXCP macro is then 
issued and the checkpoint record, which was 
created by the assignment phase, is read 
into main storage. The routine then 
continues to INIT1. 



» The tape indicator <T) is moved to VOLn 

» For standard labels, a hexadecimal * F0 f 
is placed in LABTYPn. (This will 
result in a branch to the END macro 
instead of to the FEOV macro in the 
open/ close routine at EOV time,) 

• For non-standard labels with user exit 
41, the number of volumes in the file 
(VOLn+1) is set to zero and LABTYPn is 
initialized as for standard labels, 

* For non-standard labels without user 
exit and for unlabeled files, no 
modifications are made to IABTYPn nor 
to VOLn+1. 

The routine then continues to INIT2. 



INIT1, EB-Dl 



INIT2, EB-E1 



Constants are stored for use during the 
merge: 

• Number of volumes for each input file 
(to be used for tape input only) 

• Input block size (maximum for 
variable- length records) 

• Output record length (fixed-length 
records only) 

• Input record length (fixed-length 
records only) 

The last three values listed are also 
stored in USINF1, USINF2, and USINF2+2, 
respectively, for user's information in 
case user exits are specified. 

A series of tests are then made to 
determine which input files, if any, are on 
tape, If none are, the routine branches 
through TESTC, TESTB, and TESTA and resumes 
processing at I NIT 2. Although the order of 
merge may be less than 4, all four files 
are tested; any initialized portions that 
are not needed will not be used at 
execution time. 

For each file that is on tape, the 
corresponding CCB is changed to include the 
read- tape CCW instead of the read- disk 
channel program. The rest of the 
initialization for tape input includes: 

• The branch to calculate disk addresses 
in the input routine is made a no-op. 

• The instruction in the input routine 
that moves the data address into the 
CCW is changed to include the tape CCW 
instead of the disk CCW, 



A test is made of location KEY to determine 
if there is a key to be read which 
signifies that the input files must be on 
disk only (not mixed) and that only 
unblocked fixed-length records are being 
processed. If there is a key, a branch is 
made to KEYOK; if not, the read CCW is 
changed to read only data and the error 
routine is initialized to bypass the 
function at WLR where the key length is 
added to the data length. A branch is then 
made to TSTFORM. 



KEYOK, EB-F2 



The entry point to the output routine from 
the end-of-job routine is changed from 
WRITEV to LWRITE (to write the last block). 
The test-error routine is initialized to 
immediately print the wrong- length- record 
message in case a short block is detected 
and to return to the input routine 
immediately. The routine then continues to 
TSTFORM. 



TSTFORM, EB-G1 



Tests are made to determine if the data is 
in a form that must be converted before 
processing and/or if user exit 42 is 
specified: 

1. Test location FORMAT for conversion. 
If yes, go to item 3. If no, modify 
the input routine (Chart EC) so that 
the branch-and-link to the conversion 
routine is bypassed. Go to item 2. 
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2. Test location PH34EX for user exit 42. 
If yes, go to TEST ON. If no, modify 
the input routine (Chart EC) to bypass 
the branch- and- link to the user's 
routine as well as the one to the 
conversion routine. Then go to TESTON. 

3. Test location PH34EX for user exit 42. 
If yes, go to TESTON. If no, modify 
the input routine (Chart EC) to bypass 
only the branch- and- link to the user's 
routine. Then go to TESTON. 

The reason for testing twice for user exit 
4 2 is to initialize the input routine with 
the proper single instruction that will 
satisfy any one of three possibilities: 

» Bypass the conversion routine. 

* Bypass user exit 42. 

♦ Bypass the conversion routine and user 
exit 42. 



TESTON, EB-H1 



Bypass the reconversion routine. 

Bypass user exit 43. 

Bypass the reconversion routine and 
user exit 43. 



TESTEX, EB-J1 



If no user exits are required (determined 
by testing PH34EX), the error routine 
(Chart ED) is modified to bypass exit 4 5 
and the routine continues to TSBPASS. 

If any exits at all are specified, the 
address of the user's routines is saved and 
the branch at NO USER is made a no-op to 
permit calling in the user routines at the 
end of the initialization. A test is then 
made for user exit 45 specifically and, if 
specified, a branch is made to GOGO; 
otherwise, the error routine (Chart ED) is 
modified to bypass this exit and the 
routine continues to TSBPASS. 



Tests are made to determine if the data is 
to be reconverted in the output area to its 
original format and/or if user exit 43 is 
specified: 

1* Test location FORMAT for reconversion. 
If yes, go to item 3. If no, modify 
the output routine (Chart EH) to branch 
to EXIT to bypass the reconversion 
routine. Go to item 2. 



TSBPASS, EB-C2 



If the BYPASS option has been specified, a 
branch is made to GOGO; if not, the error 
routine (Chart ED) is modified to branch 
past the test for data check. This routine 
then branches to TSTREC. 



2. Test location PH34EX for user exit 43. 
If yes, go to TESTEX. If no, modify 
the output routine (Chart EH) to branch 
to UPDTO, thus bypassing both the 
branch to the reconversion routine and 
the branch- and- link to the user's 
routine- Also insert a branch from 
INSERT to ZYXWZY in the output routine. 
Finally, insert an unconditional branch 
from M0DF1 to ADD1 in the end-of-job 
routine (Chart EJ) and go to TESTEX. 

3. Test location PH34EX for user exit 43. 
If yes, go to TESTEX. If no, replace 
the instruction in the output routine 
(Chart EH) to bypass the 
branch-and-link to the user's routine 
and insert a branch from INSERT to 
ZYXWZY. Finally, insert an 
unconditional branch from MODF1 to ADD1 
in the end-of-job routine (Chart EJ) 
and go to TESTEX. 

The reason for testing twice for user 
exit 43 is to initialize the output routine 
and the end-of-job routine with the fewest 
possible instructions to satisfy any one of 
three possibilities: 



GOGO, EB-D3 



A bit is turned on in each input file CCB 
so that control will be returned to this 
program if a data check is encountered. 
The routine then continues to TSTREC. 

Note : At this point, the processing that 
began at TESTEX has initialized the 
mainline so that in case of an 
unreadable record: 

* Without exit 45 and without bypass, 
phase 4 will not receive control back 
from IOCS if the particular input file 
is on disk; if on tape, control will be 
received if the operator response to 
the IOCS message is 'ignore'- The 
error routine will then continue to 
check for wrong-length record- 

• With exit 45 and with bypass, phase 4 
will receive control from IOCS and 
branch-and-link to user 45. When the 
user returns control, phase 4 will 
either bypass or process the record, 
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depending on the user return point in 
the error routine. 

• With bypass but without exit 45, phase 
4 will test for a data check and will 
either bypass the record or process it, 
depending on the result. 

Note that when exit 45 is specified, the 
BYPASS option is assumed. 



TSTREC, EB-E3 



Location TYPREC is tested for the type of 
records to be processed: 

• For fixed- length, a branch is made to 
FIXLGN. 

• For variable- length, the output routine 
(Chart EH) and the error routine (Chart 
ED) are initialized for variable-length 
records, and a bit is set on in USINF3 
to denote VLR to the user. Then, for 
disk output only, the instructions for 
calculating the next disk address for 
output are initialized for 
variable-length records and a branch is 
made to FLDSKO+14. For tape output 
only, the routine branches to TAPOFX* 8. 



processing variable- length records and LI 
is less than L3, the output routine will 
move the entire record (the length 
specified by the RLI). However, the user 
must then move the record to the user's 
work area (via exit 43), lengthen it, and 
move it back as a user- inserted record. 
The output routine will then increment the 
output area address according to the new 
RLI and move it if there is room in the 
output area. This procedure is followed 
because it cannot be known in advance if a 
variable- length record will fit in the 
available output area after the user has 
lengthened it. 



The initialization then continues at 

PROS. 



PROS, EB-H3 



Location TBKLAB is tested for the type of 
blocks (fixed or variable) and a branch is 
made to TAPOFX in case of fixed blocks. 
Otherwise, the error routine (Chart ED) is 
initialized to admit variable blocks before 
continuing at TAPOFX. 



FIXLGN, EB-F3 



The output routine (Chart EH) and the input 
routine (Chart EC) are initialized for 
fixed-length records, tape or disk output. 

A test is made to determine if LI (the 
input record length) is less than L3 (the 
output record length). If LI is greater 
than L3, it indicates that the user wants 
to shorten records as they are moved to the 
output area. (Exit 43 must be specified 
for this purpose when variable- length 
records are being processed.) LI will then 
be used for the move length in the output 
routine but L3 will be used for 
incrementing the output area address. The 
output routine is written for moving LI, so 
no initialization is necessary in this case 
and a branch is made to PROS. 

In the event that LI is less than L3, 
the user wants to lengthen records as they 
are moved to the output area. The output 
routine is then initialized for 
fixed- length records to use L3 for the move 
length as well as for incrementing the 
output area address. (Exit 43 must be 
specified; the user's data will overlay any 
extraneous matter in the output area that 
was moved along with the record,) When 



TAPOFX, EB-J3 



Location IN0UT is tested for disk or tape 
output. For disk output, a branch is made 
to FLDSKO; for tape, the routine continues 
at TAPOFX +8, 



TAPOFX+8, EB-K3 

The mainline is initialized for fixed- or 
variable-length records, tape output: 

• Output routine (Chart EH) 

• End-of-job routine (Chart EJ) 

« Write Channel Command Word (WTCCW) 

• Output Command Control Block (OCCB) 

The switch at TPOUT is then turned on 
(unconditional branch) and a branch is made 
to ITCOtfP, 
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FLDSKO, EB-J2 



INIT3, EB-E4 



The calculations in the output routine for 
determining the disk output address are 
initialized with the maximum blocks per 
track. Note that this is done for 
fixed- length records only. 



FLDSKO+14, EB-K2 



The initialization of instructions for disk 
output is completed and a test is made for 
the VERIFY option, which is valid only for 
disk output • If the option is required, 
the Write CCW is modified to chain to the 
Verify CCW. The routine then continues to 
ITCOMP. 



The relocator will have stored in location 
RLISA the address of the first available 
byte of storage to be used by phase 4 for 
input and output areas. Using this 
address, the order of merge (OM) , and the 
input block size (INPBKL), the start and 
end of each input area is calculated 
(ABEGIN to AEND, BBEGIN to BEND, etc.). If 
necessary, the starting point of each area 
is adjusted to begin at a halfword 
boundary. 

The starting address (OBEGIN) of the 
output area is calculated after an 
adjustment is made for it to be at a 
fullword boundary. OBEGIN is then stored 
in the write and verify CCW's, the output 
block size (OUTBKL) is obtained, and the 
routine continues to TPOUT. 



TPOUT, EB-A5 



ITCOMP, EB-A4 



Mainline compare loops are initialized with 
the length and location of the first 
control field. This information is 
contained in the first eight bytes of the 
96-byte table starting at location CF1LCT. 
The length-1 and location-1 of the first 
control field are then stored in USINF3+1 
for the user's information and the output 
sequence check compare is initialized with 
the data in CFlLCT+1 and CF1LCT+7. 

The instructions in UST0P1, 2, and 3 
that determine the branch conditions in the 
compare loops when results are low, 
depleted, or equal, are initialized for 
ascending or descending sequence as 
required by the data in CF1LCT+7. 



CLIFOR, EB-C4 



A series of tests is made of location 
FORMAT to determine which, if any, of the 
data conversion and reconversion routines 
is required. The corresponding bit is set 
in RLCOND for the relocator and in USINF3 
for the user's information. A branch is 
then made to the relocator (Chart FA) to 
relocate the selected routine, if any, and 
to initialize the equal routine, if 
required. The relocation then branches 
back to this routine of INIT3. 



For tape output, this location would have 
been made an unconditional branch to OUTAPE 
(see text under TAPOFX+8). 

For disk output, a count field is 
prepared by storing the data length 
(OUTBKL-key length) in CCOUNT+6 and the key 
length in CCOUNT+5. OUTBLK is then 
increased by eight bytes for the count 
field and the routine continues to OUTAPE. 



OUTAPE, EB-C5 



The starting address of the output area 
(OBEGIN), which is in register FILEA, is 
increased by eight bytes to obtain the 
address at which the first byte of data 
will appear in the output area. FILEA is 
then stored at location OUTEND so that the 
"move" instruction immediately following 
can effectively move the address OBEGIN+8 
into the write tape CCW. 

Using the value in OUTBLK, the end 
address of the output area is calculated 
and stored in OUTEND and 0UTEND1. The data 
count for output is inserted in the write 
and verify CCW's and the data count for 
input is inserted in the read CCW f s for 
disk and tape. 

The byte from the assignment phase table 
that contains the label information for 
file A is moved into location LABEL. The 
corresponding byte for each additional file 
(B, C, and D, as required by OM) is ANDed, 
in turn, at location LABEL. If all the 
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files have the same type labels, the 
corresponding bit in LABEL will thus be set 
on; for mixed labels, no bits will be set 
on, LABEL will then contain a bit 
configuration that denotes unlabeled, 
non-standard, standard, or mixed labels for 
input. LABEL is then tested and the label 
type is inserted USINF3 for the user's 
information. The order of .merge is 
determined and also stored in USINF3- 



The mainline is then initialized, 
depending on the order of merge, to fill 
the input areas and open the corresponding 
compare loops. 

The two instructions at FILLDL are now 
moved to the beginning of the first input 
area (at location ABEGIN), This is done so 
that the execution of these instructions 
(after fetching the user's routines) will 
not destroy some part of the initialization 
routine that has not yet been executed, 



INPUT ROUTINE 



EC 



N0USER, EB-F5 



When there are no user exits specified, 
this location is a branch to ABEGIN, where 
FILLDL is now located. If user exits are 
specified, however, this location would 
have been a no-op (see text under TESTEX) 
and the user routines are now fetched into 
main storage. When the user returns 
control to this program through register 14 
(which is register LINK), the 
initialization continues with FILLDL. 



The initial entry to this routine is after 
the mainline initialization and the opening 
of the outpt file. The open/close routine 
branches back (through CEVCHK) to TAP El- 2 
to open the first input file and perform 
the first read operation. All the files 
are then opened in turn. 

Subsequent entries are made to TAPEGl-4 
and FIXIP1 from the error routine, and to 
GET1 from the compare loops. 

Note : The labels in this routine are 

written on Chart EC with the suffix 
1 or A and referred to in the text 
with the same suffixes most of the 
time. The same logic applies to the 
similar labels in the listing with 
suffixes 2, 3, and 4 or B, C, and D, 
depending on the file in process. 

The routine reads in a block of records 
at a time and branches to the error routine 
to test for errors. If no errors exist, a 
branch is made back to this routine at 
FIXIP1 to provide user exit 42 and/or data 
conversion, as required. The routine then 
branches to the compare loops to start 
merging records, 



TAPE1-2, EC-C2 



The address of TAPE1 is loaded in register 
RG13 and the routine continues to TAPE1. 



TAPE1, EC-D2 



FILLDL, EB-H5 



The output count field and four blanks (for 
the BLI in case of variable- length records) 
are moved to the beginning of the output 
area and a branch is made to CEVCHK to: 

1. Write the initialized mainline on disk, 

2. Read in the open/close routine, which 
will open the output file, 

3. Write the open/ close routine back on 
disk, and 

4. Read the mainline back into main 
storage. The program then continues to 
the input routine (Chart EC) at 
location TAPEl-2, the address of which 
is in register RG13. 



The address of the CCB for the current file 
(ACCB, BCCB, etc. ) is loaded in register 
MREG, the file indicator is placed in 
XFILE, and register RG10 is loaded with the 
address of the input area for that file, 

The next instruction in the listing is a 
no-op except for two occasions: 

1. During initial open time, a branch is 
made to EOFDK in the error routine 
(Chart ED) to call in the open/close 
routine via CEVCHK, This branch is 
then made a no-op until a valid short 
block is detected at the end of a 
volume or file. 

2, When a valid short block is to be 
processed, this instruction would have 
again been made a branch to EOFDK, 
after which it will be made a no-op. 
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At all other times, the routine continues 
to CPIADD for disk input or to TAPEG1 for 
tape input - 



CPIADD, EC-C4 



The record number in register RGO (the 
current disk address) is increased by one* 
Location CHHR is then tested for the 
end-of- track indicator (FF) and, if 
present, the address is increased to the 
next track and a test is made to determine 
if the new head number exceeds nine. If 
so, the next cylinder number is calculated 
by adding the 256-complement of ten (HCOMP) 
to the address in register RGO. 

A test is then made to determine if the 
upper limit of the extent has been exceeded 
by the new disk address just calculated in 
register RGO. If not, a branch is made to 
OKLMTS; if so, location BCERRW+1 is tested 
to determine if there is a short block to 
process. If an *F0* is detected, a branch 
is made to FROMDK in the error routine 
(Chart ED) to process the short block; if 
not, a 'V for end-of- volume is placed in 
register 12 and a branch is made to CEVCHK 
to call in the open- close routine to get 
the next extent. Control is returned to 
this routine at GET1 (or GET2, etc., as the 
case may be). 



FIXIP1, EC-B3 



The end-of-block address is stored in AEND 
(or BEND, etc.). When variable- length 
records are being processed, the input area 
address in FILEA (or FILEB, etc.) is 
incremented by four bytes for the 
block-length indicator. Then the file 
designation (A, B, C, or D) is restored in 
XFILE to be used in case a sequence error 
is detected later in the output routine. 
This routine then continues to TR1. 



TRl, EC-D3 



The input area address in register FILEA 
(or FILEB, etc.) is loaded in register 
MREG. Then, if so initialized, a 
branch-and-link is made to user exit 42 
before continuing to LRA. 



LRA, EC-F3 



If the data is in a form that must be 
converted before merging, a *T* 
(hexadecimal f E3*) is placed in location 
XTIME and a branch-and-link is made to STR3 
for the initialized conversion routine. 
After linking back, this routine exits to 
the compare loops at an address that varies 
with the file in process and with the order 
of merge: 



OKLMTS, EC-F4 



The new address in the current extent is 
stored in ARADDR (or BRADDR, etc.). The 
new record number is then reduced by one 
(to obtain the seek address) and stored 
back in CHHR. A branch is then made to 
TAPEGl (or TAPEG2, etc.). 





Order of 


Branch to 


Which is in 


File 


Merge 


Address 


Reqister 


A 


4 


C0MP41 


SAVEA 




3 


C0MP31 


SAVEA 




2 


C0MP21 


SAVEA 


B 


4 


CO MP 4 2 


SAVEB 




3 


COMP32 


SAVEB 


C 


4 


COMP43 




D 


4 


COMP43 





TAPEGl, EC-H2 



GET1, EC-B1 



An EXCP macro is issued to read in a block 
of records from the file in process. The 
parameters for the read- in operation are 
supplied by ACCB, BCCB, CCCB, or DCCB, as 
the case may be- The routine then branches 
to the error routine (Chart CD). If no 
error nor end-of-file conditions are found, 
a branch is made back to this routine from 
RESTOR+4 to FIXIP1. 



This location is entered from the 
open/ close routine whenever a new disk or 
tape volume was opened and from the compare 
loops whenever a block in a particular 
input area was depleted. The entry label 
will be GET1, GET2, GET3 , or GET4. 

The starting address of the input area 
for the current file is loaded in the 
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corresponding register (FILEA, FILEB, etc.) 
and in the corresponding CCW (for tape or 
disk). The routine then continues to 
TAPE 1-2. 



ERROR ROUTINE 



ED 



Tests are made for checkpoint record (tape 
only) , end- of- volume and end-of-file, no 
record found (disk only) , wrong-length 
record, and good, short block. All 
conditions except end-of-file are processed 
according to the condition found, after 
which a branch is made back to the input 
routine (Chart EC) to read the next block. 
For end-of-file, the depleted file is 
closed and merging is resumed with the 
remaining files. When all input files are 
closed, a branch is made to the end- of- job 
routine (Chart EJ) . 

In case of no record found, the 
remaining portion of the track is bypassed. 
In case of a data check, a bypass option 
and user exit 45 are available to permit 
the user to continue processing the record 
if so desired. In case of a wrong-length 
record the record will always be bypassed. 

For valid records, the routine returns 
to FIXIP1 in the input routine to continue 
processing. 



TEST, ED-A1 



TAPEX, ED-A2 



The block just read is tested to determine 
if it was a checkpoint header record and, 
if so, a branch is made back to the input 
routine (Chart EC) to TAPE1 (or TAPE2, etc) 
to read the next block until a checkpoint 
trailer record is read, thus bypassing the 
checkpoint records. If not a checkpoint 
record, the block count is increased by one 
and the input block length is loaded in 
register RG15. 



The CCB is tested for the WLR 
(wrong -length record) bit and if it is not 
on, a branch is made to TMEOF. If the CCB 
has a WLR indication, the residual count in 
the CCB is tested; if it is zero, a long 
WLR has been read and a branch is made to 
LALINK. If the residual count is not zero, 
it is subtracted from the input block 
length (in RG15 ) to obtain the length of 
the record read. A branch is then made to 
TMEOF. 



TMEOF, ED-F1 



The CCB is tested for end-of-file 
condition; if yes, a branch is made to 
EOFDK. If not end-of-file, the LINK 
register is loaded with the return address 
BPASS for use in the event that the 
previous block (fixed blocks only) was 
found to be a short block (BCERRW will be 
on). The routine then continues to BCERRW • 



A WAIT macro is issued to ensure the read 
operation is complete before the routine 
continues to test for errors. Then, if the 
input file from which the block was just 
read is on tape, a branch is made to TAPEX. 

For disk input, if a no- record- found 
condition is detected an end-of -track 
indicator (FF) is set in MREG+19 (ARADDR+3 
or BRADDR+3, etc.) and a branch is made to 
TAPEG1-4 (or TAPEG2-4, etc.) to read the 
first block on the next track. Next, a 
test is made to determine if the block just 
read was the last block on the track. This 
test compares the next record count with 
the current one and if the next count is 
equal or lower, the end of the track has 
been reached. If such is the case, the 
end-of- track indicator (FF) is inserted in 
ARADDR+3 or BRADDR+3, etc. (MREG+19). 
Then, in either case, the data length is 
loaded in register RG15 and the routine 
continues to TMEOF. 



EOFDK, ED-G1 



This location is entered when: 

» End-of-file is detected at TMEOF. 

» Initial open of input files is being 
performed. 

• A good, short block at the end of a 
volume or a file is being processed. 

An f F* for end-of-file is placed in 
register RG12 (this will be stored in XFILE 
in the open/close routine and is 
significant for disk input only). The 
branch to EOFDK from the input routine is 
made a no-op and the routine continues to 
EOF. 
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EOF, ED-J1 



ERR, ED-E3 



This location is a branch to CEVCHK to call 
in the open/close routine at initial open 
time, at EOV or EOF for tape input, and at 
EOF for disk input. The return from the 
open/ close routine is to open the next file 
at initial open, to close the particular 
file at EOF for tape or disk input, or to 
perform the next read operation at EOV for 
tape input. 

At all other times, this location is a 
detected at the end of a volume or of a 
file. The branch to EOFDK from the input 
routine is activated so that when the 
records in the short block have been 
processed the input routine will branch to 
EOFDK. This routine then continues to 
FROMDK. 



This location is an unconditional branch to 
ERROR if user exit 45 was not specified. 
Otherwise, a branch-and-link is made to the 
user's routine after which control is 
returned at one of two points: 

* User desires to ignore error indication 
— return (via B,14) to instruction 
preceding ERROR which is a branch to 
WLR to continue processing the block. 

• User desires to bypass the block — 
return (via 3,4(14)) to ERROR. 



ERROR, ED-H3 



FROM)K, ED-C5 



The count of unreadable records (ERRCT) is 
increased by one (ERRCT will be printed out 
at end-of-job) and the routine branches 
back to the input routine (Chart EC) to 
TAPEG1-4 (or TAPEG2-4, etc.). 



This location is entered from the preceding 
function at EOF or from CPIADD in the input 
routine, in both cases when a short block 
is being processed. The branch at EOF is 
activated and BCERRW is made a no-op. The 
routine then branches to RESTOR to process 
the short block as a valid record. 



BCERRW, ED-B3 



This location is a no-op until a short 
block is detected (for fixed block input 
only), at which time it is made an 
unconditional branch to ERRW. 



WLR, ED-B4 



If there is no key to read, this location 
is a branch to WLR2. With key, the key 
length is added to the data length (in 
RG15) before continuing to WLR2. 

Note: In case of data check and no BYPASS 
option or no exit 45, IOCS does not 
return control to this program if 
input is on disk. For tape input, 
control is returned if the operator 
response to the IOCS message is 
'ignore'. If BYPASS only or if exit 
45 was specified, control is 
returned as described under ERR. 



Note: This location is entered only when 

EOF condition has not heen detected. 
Then, if applicable, the WLR message 
is printed and the program returns 
to BPASS. 



BPASS, ED-C3 



This location is an unconditional branch to 
WLR if the BYPASS option was not specified- 
with the BYPASS option, a test is made for 
a data check in the CCB; if present, a 
branch is made to ERR. If there is no data 
check, the routine continues to WLR. 



WLR 2, ED-D4 

Calculations and tests are made to 
determine if there is a wrong- length-record 
condition. This provision is made to 
prevent erroneous WLR indications for: 

• variable- length records 

• fixed- length records in variable blocks 

• short, good blocks at the end of a 
volume or file of fixed- block, 
fixed -length records. 

Register RG15 is saved so that its 
contents may be retrieved later (at RESTOR) 
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if required. For tape, this is the actual 

input block length and for disk it is the 

data length (plus the key length, if so 

specified). This value is compared to 

BLKINP which contains the input block 

length (for fixed blocks) or to the 

block- length indicator, the address of 

which is in RG10 (for variable blocks). If LALINK, ED-G5 

the result of the comparison is equal, it 

indicates a good record and a branch is 

made to RESTOR+4. If the result is low, it 

is a wrong length record for all types 

except fixed-length without key; a branch 

is then made depending on the type of 

record: 



The routine then branches back to the 
input routine (Chart EC) to FIXIP1 to 
continue processing the good block of 
records. 



The return address in the input routine 
(TAPEG1-4, TAPEG2-4, etc.) is loaded in 
the LINK register and the routine branches 
to ERRW. 



* Fixed-length without key - to MULTPL 

* Fixed- length with key - to LALINK 

* Variable-length - to LALINK 

Note : For disk input, a WLR cannot be 

detected by testing the WLR bit in 
the CCB. Setting the SILI bit off 
in the CCW would cause a break in 
the disk CCW chain if a WLR 
condition is detected. 



ERRW, ED-H5 



This location is entered from BCERRW or 
from LALINK; in either case, the function 
here is to print wrong- length- record 
message WLRMES, which contains the file 
designation (A, B, C, or D) retrieved from 
XFILE. The branch at BCERRW is made a 
no-op and EOF is made an unconditional 
branch to CEVCHK. 



MULTPL, ED-G4 



The routine then branches back to the 
address in the LINK register, the 
difference being due to the location from 
which ERRW was entered: 



If the block length is not a multiple of 
the record length, a true WLR exists and a 
branch is made to LALINK. Otherwise, the 
branch is to LASTBLK (for fixed blocks) or 
to RESTOR (for variable blocks). 



From BCERRW, branch back to BPASS 
(previous block was a wrong-length 
record) . 

From LALINK, branch back to the input 
routine (Chart EC) to TAPEG1-4 or 
TAPEG2-4, etc. (current block is a 
wrong-length record). 



LASTBLK, ED-J4 



FILE, D COMPARE LOOP 



EE 



The return branch at EOF is made a no-op 
and the no-op at BCERRW is changed to an 
unconditional branch to ERRW. The routine 
then branches with register RG13 back to 
the input routine (Chart EC) to TAPEG1-4 
(or TAPEG2-4, etc.). 



RESTOR, ED-D5 



The contents of register RG15 are restored. 
For tape, this is the actual input block 
length and for disk it is the data length 
(plus the key length, if so specified). 
Then, at RESTOR+4, the end-of-block address 
is calculated by adding the contents of 
RG 15 to the current address of the input 
area for the file in process (FILEA, FILEB, 
etc.) which is in register RG10. 



For a 4-way merge, the initialization 
routine prepared certain branch 
instructions in compare loops D through B 
and the initial entry for merging is to 
this loop at COMP43. However, the flow 
through these loops varies not only with 
the order of merge but also, later on, with 
the depletion of records in the files being 
processed. As each file is depleted, an 
exit is made to the compare loop for the 
next lower order of merge (Charts EF and/or 
EG). A branch- and- link to the output 
routine (Chart EH) moves each winning 
record, in turn, to the output area for 
further processing. The program keeps 
returning to this loop as long as there are 
records to process in fileD. It then 
exits to the file C compare loop (Chart 
EF). 
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COMP4 3, EE-B3 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when file D is depleted. If such is 
the case f a branch is made to C0MP32 in the 
file C compare loop (Chart EF) ; if not, a 
record from the file D sequence is compared 
with a record from the file C sequence* As 
long as D is determined to be the winner, 
it is compared with records from the other 
available sequences, in turn. The routine 
thus continues in this compare loop or 
exits to another loop, depending on the 
results of each comparison. For example, 
when merging in ascending sequence: 



Function 


Winner 


Branch to 


COMP43 


D 


COMP42 




C 


C0MP32 (Chart EF) 


COPIP4 2 


D 


C0MP41 




B 


COMP21 (Chart EG) 


C0MP41 


D 


PUT 4 




A 


PUT1 (Chart EG) 



The branch locations are determined not 
only by the results of the comparison but 
also by the depletion of input sequences. 
For example, if in COMP42 sequence B is 
found to be depleted, the instruction at 
B41 is an unconditional branch to C0MP41 to 
compare the D record with the next A 
record. 



updated- If there are no more records in 
the area, a branch is made to GET4 in the 
input routine (Chart EC) to refill the 
input area. If however, there are more 
records in the D input area, the compare 
loop is re-entered at COMP43 via TR4-4 in 
the input routine. 



FILE C COMPARE LOOP 



EF 



For a 3 -way merge, the initialization 
routine prepared certain branch 
instructions in compare loops C and B and 
the initial entry for merging is to this 
loop at COMP32. However, the flow through 
these loops varies not only with the order 
of merge but also, later on, with the 
depletion of records in the files being 
merged. As each file is depleted, a branch 
is made to the compare loop for the next 
lower order of merge (Chart EG). A 
branch- and- link to the output routine 
(Chart EH) moves each winning record, in 
turn, to the output area. The program 
keeps returning to this loop as long as 
there are records to be merged from file C. 
It then exits to the file B compare loop 
(Chart EG). 



C0MP32, EF-B3 



Another variation in the compare loop 
operation occurs when, for example, a D 
record is found to be the winner in COMP43. 
Then, in COMP42, the B record is found to 
be the winer. The exit from the loop, as 
previously described, is to C0MP21 (Chart 
EG) ; however, the return address that is 
saved in register SAVEB is C0MP42+2. Then, 
assuming the B record is the winner in 
compare loop A and is moved to the output 
area, control is returned to the D loop at 
the address in SAVEB. The reason for 
entering this loop at C0iMP4 2+2 is that 
although B was the winner, the D record had 
already been determined to be winner over C 
at that time. Therefore, the comparing in 
D loop resumes at the point where D is 
compared with the next B record. 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when file C is depleted. If such is 
the case, a branch is made to C0MP21 in the 
file B compare loop (Chart EG); if not, a 
record from the file C sequence is compared 
with a record from the file B sequence. If 
the C record is the winner, it is compared 
with a record from sequence A. If the C 
record wins again, the routine continues to 
PUT3. 

The other branch locations, in the event 
that either B or A is determined to be the 
winner, are: 



Function 



COMP32 



Winner 



Branch to 



C0MP21 (Chart EG) 



CO MP 31 



PUT1 (Chart EG) 



PUT4, EE-F3 



The address of the winning record from the 
file D sequence is loaded into register 
MREG and a branch-and-link is made to 
OUTFIL in the output routine (Chart EH). 
Control is returned to this routine where 
the address for the file D input area is 



The branch locations are determined not 
only by the results of the comparison but 
also by the depletion of input sequences. 
For example, if in C0MP31 sequence A is 
found to be depleted, the instruction at 
BPUT3 is an unconditional branch to PUT3 to 
prepare to lObve the C record to the output 
area. 
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Another variation in the compare loop 
occurs when, for example, a C record is 
found to be the winner in COMP32. Then, in 
C0MP31, the A record is found to be the 
winner. The exit from the loop, as 
previously described, is to PUTl (Chart 
EG); however, the return address that is 
saved in register SAVEA is COMP31+2. Then, 
after the A record is moved to the output 
area, control is returned to the C loop at 
the address in SAVEA. The reason for 
entering this loop at COMP31+2 is that 
although A was the winner, the C record had 
already been determined to be winner over 
the B record. Therefore, the comparing in 
C loop resumes at the point where C is 
compared with the next A record. 



PUT3, EF-E3 



The address of the winning record from the 
file C sequence is loaded into register 
MREG and a branch- and- link is made to 
OUTFIL in the output routine (Chart EH). 
Control is returned to this routine where 
the address for the file C input area is 
updated. If there are no more records in 
the area, a branch is made to GET3 in the 
input routine (Chart EC) to refill the 
input area. If, however, there are more 
records in the C input area, the compare 
loop is re-entered at COMP43 via TR3-4 in 
the input routine. 



FILE B COMPARE LOOP - EG 



For a 2-way merge, the initialization 
routine prepared certain branch 
instructions in compare loop B and the 
initial entry for merging is to this loop 
at COMP21. However, the flow through this 
loop varies not only with the order of 
merge but also, later on, with the 
depletion of records in file B. when file 
8 is depleted, a branch is made to prepare 
to move the A record to the output area. 

A branch-and-link to the output routine 
(Chart EH) moves each winning record, in 
turn, to the output area. The program 
keeps returning to this loop as long as 
there are records to be merged from file B. 
It then branches directly to PUTl. 



the case, a branch is made to PUTl; if not, 
a record from the file B sequence is 
compared with a record from the file A 
sequence. If the B record is the winner, 
the routine branches to PUT2; if the A 
record is the winner, the routine branches 
to PUTl. 



PUT2, EG-E2 



The address of the winning record from the 
file B sequence is loaded into register 
MREG and a branch -and- link is made to 
OUTFIL in the output routine (Chart EH). 
Control is returned to this routine where 
the address for the file B input area is 
updated. If there are no more records in 
the area, a branch is made to GET2 in the 
input routine (Chart EC) to refill the 
input area. 

If, however, there are more records in 
the B input area, the compare loop is 
re-entered at the address in register SAVEB 
via TR2-4 in the input routine. This 
address is COMP42 if the OM is 4, or COMP32 
if the OM is 3. 



PUTl, EG-E4 



The address of the winning record from the 
file A sequence is loaded into register 
MREG and a branch- and- link is made to 
OUTFIL in the output routine (Chart EH). 
Control is returned to this routine where 
the address for the file A input area is 
updated. If there are no more records in 
the area, a branch is made to GET1 in the 
input routine (Chart EC) to refill the 
input area. If, however, there are more 
records in the A input area, the compare 
loop is re-entered at the address in 
register SAVEA via TR1-4 in the input 
routine. This address is C0MP41 if the OM 
is 4, or C0MP31 if the OM is 3, or C0MP21 
if the OM is 2. 



OUTPUT ROUTINE - EH 



When a winning record has been determined 
by the mainline compare loops, the output 
routine is entered at OUTFIL. This 
routine : 



C0MP21, EG-C2 



The exit from this loop is provided at the 
beginning so that no processing need be 
done when file B is depleted. If such is 



Sequence checks the output file. 

Reconverts data, if specified. 

Exits to user routine, if specified 
(via exit 43). 
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• Updates the main storage output area. 

• Moves records to the main storage 
output area. 

Note ; This can be either winning 
records or user- inserted 
records, 

• Maintains a count of records merged. 

• Writes blocks of records on tape or 
disk whenever the output area fills up. 

• Provides for maximum usage of track 
capacity. 

• Tests for end- of- volume and end-of-job 
and branches to the appropriate routine 
for further processing. 

The routine normally exits back to the 
compare loops to the address in the LINK 
register. For end-of -volume, the 
open/ close routine is called in to process 
the condition. When end-of-job is 
detected, it exits to the end-of-job 
routine (Chart EJ) . 



loaded in register MREG, and the file 
identification (A, B, C, or D in XFILE) is 
loaded in register RG12. A branch is then 
made to CEVCHK to call in overlay DSORT401 
to process the error condition in the 
sequence- error routine (Chart EL). If the 
merge is to continue, the program returns 
to this routine at SEQBACK (via EXIT in 
DSORT401). 



SEQBACK, EH-H1 



The address of the out-of- sequence record 
is restored to register MREG and a branch 
is made to CONVRT to continue processing. 
The out-of -sequence record will thus be 
moved to its output location either because 
an IBM 10 52 Printer- Keyboard was not 
available or, if it was, because the user 
response was "ignore". 



CONVRT, EH-J1 



OUTFIL, EH-B1 



The address in register LINK is stored so 
that this register may be used to 
branch-and-link to user and/or reconversion 
routines, if specified. 

The first record to be moved to the 
output area cannot be sequence-checked 
because there is no preceding record in the 
output area. Also, the user and 
reconversion routines, even if specified, 
cannot be executed for the first record 
because these functions are performed on 
records that already have been moved to the 
output area. Therefore, a branch is made 
to the instruction preceding FULOUT where 
the instruction at SEQCK1 is made a no-op 
so that all subsequent records will be 
sequence- checked. 

Beginning with the second winning 
record, each record is compared with the 
one that preceded it to the output area. 
If the record to be moved is out of 
sequence, a branch is made to SEQERR; 
otherwise, the routine branches to CONVRT. 



SEQERR, EH-D1 



The address of the out-of -sequence record 
(in MREG) is saved in register RG13, the 
address for the return to this routine is 



This location may have been initialized to 
branch to EXIT (if reconversion is not 
required) or to UPDTO (if neither 
reconversion nor exit 43 are required). 
However, if the data was converted for 
merging, it must now be reconverted to its 
original format. An ' R' (hexadecimal D9) 
is placed in XTIME and a branch-and-link is 
made to STR3 for the initialized 
reconversion routine. Control is returned 
to this routine at EXIT. 

Note : If reconversion is required, it will 
be done after the sequence check and 
before the user exit. 



EXIT, EH-A2 



This location will have been initialized to 
branch to UPDTO after data reconversion if 
user exit 43 is not required; otherwise, a 
branch-and-link is made to the user's 
routine. Control is returned by the user 
either at UPDTO or at the instruction 
preceding UPDTO; in the latter case, the 
user did not insert a record so location 
INSERT is made a no-op before continuing to 
UPDTO. 

Note : The record made available to the 
user at exit 43 is the one that 
preceded the current winning record 
and that has been sequence- checked 
and, if necessary, reconverted. 
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UPDTO, EH-C2 



written on the next available track. (See 
Figure 49.) 



The output area (FILEO) address is 
increased by the value in OUTLGN, which is: 

• For fixed- length records, the length of 
the output record (13 , which was moved 
to OUTLGN during initialization)- 



The branch at SEQCK1 is made a no-op, 
after the first record is moved to the main 
storage output area, to permit 
sequence- checking the next record; the 
routine then continues to FULOUT. 



For variable-length records, the length Track 
of the last record moved. 3625 bytes 



When variable-length records are being 
processed, the program provides for maximum 
usage of each track's capacity* The end 
address of the output area is carried in 
two locations: 

* OUTEND1, which contains the original 

end address throughout the merge phase- 

» OUTEND, which will contain the original 
end address (0UTEND1) at least until 
after the first block has been written 
and the amount of track capacity 
remaining has been calculated. If this 
amount is less than the maximum output 
block size, the output area is 
truncated so that it equals the track 
capacity remaining and the new end 
address is inserted in OUTEND for 
testing the next record. 

After the first block of a track has 
been built in the main storage output area, 
the track capacity remaining after it is 
written on disk is calculated. If the 
track capacity remaining is equal to or 
greater than the maximum output block size, 
the block is written and the next record is 
unconditionally moved to the output area. 

If the track capacity remaining is less 
than the maximum block size, the main 
storage output area is truncated 
(shortened) so that it equals the remaining 
track capacity, and the new end address of 
the main storage output area is placed in 
OUTEND. The block is written on disk and 
the next record is unconditionally moved to 
the main storage output area. A test is 
made to determine if the record 
unconditionally moved exceeds the shortened 
output area- If it does not, the record 
length indicator of the next record to be 
moved to the main storage output area is 
tested to determine if the record will also 
fit in the output area, and the next output 
block is built as described in FULOUT- If 
the unconditionally moved record does 
exceed the shortened output area, the 
output area will be restored to its 
original length by moving the value of 
0UTEND1 into OUTEND- The new output block, 
the first record of which is the 
unconditionally moved record, is built and 



Maximum 
Output Block 
Size 1500 bytes 



Records in 
bytes 



Block 1 



Track 



Block 2 



Track 1 



Block 3 



Track 1 



Block 4 



Track 2 



-OUTEND1 



A 
500 



600 



D 
700 



E 
600 



F 
'800 



G 

400 



A 
500 



600 



-OUTEND = OUTENDl 



Block 1 
1 400 bytes 



I Remaining track capacity 2225 
bytes >Maximum output block s 



J 



D 

700 



E 
600 



,>^OUTEND = OUTEND1 

l (Output areq not truncated) 

J 



Block 1 
1400 bytes 



Block 2 
1 300 bytes 



Remaining 
track capacity 
925 bytes 



F 
800 



^.-Truncated output area 
, = 925 bytes (OUTEND) 



Block 1 
1400 bytes 



Block 2 
1 300 byte: 



Block 3 
800 byte; 



Portion of 
M^ track left 
unused. 
125 




Truncated output area 
= 125 bytes 

Record G=400 bytes 



Record length exceeds 
Truncated output area 



G 
400 



x Jr Output area restored to full 
l length of 1500 bytes 



Block 4 



Note: Block sizes in bytes are given for illustration only and do not 
represent the actual number of bytes consumed in writing the 
equivalent block. 

Figure 49- Maximum Use of Output Track 
Capacity 
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FULOUT, EH-F2 



A test is made to deterndne if the output 
area is full. If it is, a branch is made 
to LWRITE for fixed- length records or to 
WRITEV for variable- length records. 

If the record will fit in the output 
area, one of two courses of action is 
taken: 

• For fixed-length records, the record 
length (FIXDRL if L1>L3 or OUTLGN if 
LKL3) is loaded in a register, reduced 
by one, and a branch is made to FIXMOV. 

• For variable-length records, the length 
of the record to be moved is obtained 
from register MREG (via OOTRLI+2) and 
stored in OUTLGN, The length is 
reduced by one and the routine 
continues to FIXMOV. 



The final move thus consists of 88 bytes 
and is executed by the instructions at 
RESTMV. After the entire record has been 
moved, the record length is incremented by 
one to restore the original value. MREG is 
updated to the next record location and 
registers FILEO, RG4 , and RG5 are restored. 



INSERT, EH-K2 



This location is a branch to ZYXWZY if user 
exit 43 was not specified. When exit 4 3 is 
initialized, if the last record moved is a 
user- inserted record, a branch is made to 
EXIT to permit multiple insertions by the 
user. Otherwise, the routine continues to 
ZYXWZY. 



ZYXWZY, EH- J 3 



FIXMOV, EH- J 2 



The record length, minus one, is stored in 
OUTRLI+2 and registers RG4 and RG5 are 
initialized for moving 256 bytes at a time 
to the output area. Register FILEO (output 
area address) is saved in case user exit is 
made later (at INSERT) because FILEO will 
change if there are more than 256 bytes to 
move. 



After each record is moved to the output 
area, the count in RCOUNT (number of 
records processed) is increased by one and 
the new total is stored back in RCOUNT. 
The LINK register is restored and the 
routine branches back to the compare loop 
in which the winning record was found to 
test if the block in that input area is 
depleted. 



Records are moved from the address in 
MREG to that in FILEO, using the contents 
of registers RG4 and RG5 in a loop that 
moves 256 bytes at a time- MREG and FILEO 
are updated each time through the loop, 
When the count in index register RGl 
becomes greater than that in RG5, the 
length of the last move is calculated and 
the remaining bytes are moved to the output 
area. 

Example : 600- byte record to be moved. 
From RJLOUT, register RG4-256 and register 
RG5=600. 



Start 
1st move 
2nd move 
3rd move* 



RG4 
256 
256 
256 
256 



RG5 
600 
600 
600 
600 



RGl (Index) 



256 

512 

768 



♦(Not executed because RGl is neither 
lower nor equal to RG5) 

Then, register 4 plus register 5 minus 
register 1 = 88 remaining bytes. 



WRITEV, EH-B3 



When variable-length records are to be 
written on disk or tape, OBEGIN (the 
starting address of the output area) is 
incremented by eight to bypass the record 
count at the beginning of the output area. 
The block- length indicator is then 
calculated and stored following the record 
count. 

For tape output, the data count is 
stored in the write CCW and a branch is 
made to LWRITE. For disk output, the 
output block length is stored in the 
data- length portion of the disk count and 
in a work register. The data count is 
incremented by 8 and stored in the write 
CCW and the verify CCW. Calculations are 
then made to determine if the records in 
the output area will fit on the current 
track; if not, the track capacity is 
restored to 3625 and the end-of- track 
indicator (FF) is set. The area remaining 
on the track is then calculated and stored 
in TKLEFT. 

A calculation and test are now made to 
determine if the amount of track left is 
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less than the maximum output block size. 
If so, the output area is truncated to 
equal the amount of track left (for the 
reason described in the text under UPDTOK 
This lower value for the end address of the 
output area is stored in OUTEND. If the 
amount of track left is equal to or greater 
than the maximum output block size, the 
original end address of the output area is 
left in OUTEND. Whenever the output area 
is truncated, it will be restored to its 
original length at DPDTO if the record 
moved does not fit as the first record- in 
the truncated area, after the last block is 
written on the current track. 

The routine then continues to LWRITE. 



ADJOUT, EH-F5 



The address in register PILEO is increased 
by eight bytes for fixed-length records, or 
twelve bytes for variable- length records, 
to obtain the address of the first byte of 
data. This increase bypasses the count 
field and, in the case of variable- length 
records, the BLI as well. 

A test is then made for end- of -volume 
and, if detected, the branch- back address 
for tape (PH3.BJ1) is loaded in register 
RG13 and the routine continues to EOVDSK. 
If not end -of -volume, the routine continues 
to PH3EJ1. 



PH3EJ1, EH-H5 



LWRITE, EH-A4 



OBEGIN (the starting address of the output 
area) is restored in register FILEO. For 
tape output, a branch is made to TAPPUT. 

For disk output, the current disk 
address of the output file, ORADDR, is 
incremented by one. Then, in the case of 
fixed-length blocks, a test is made to 
determine if the record number has exceeded 
the maximum on the current track. If it 
has, the 2 56 -complement of the 
blocks- per- track count is added to obtain a 
new head number. In the case of 
variable- length blocks, a test is made for 
the end~of -track indicator. If present, 
the record number is made one. Then, for 
both variable- and fixed- length blocks, the 
maximum head number is tested. If 
exceeded, a new cylinder number is 
calculated. Finally, the output extent 
upper limit is tested. If not exceeded, 
the new cylinder number is stored in 
ORADDR, and register RGO is decreased by 
one and stored in CHHR for the seek command 
in the write CCW chain. The routine then 
continues to TAPPUT. If the limits are 
exceeded, the branch-back address for disk 
(TAPEO) is loaded in register RG13 and a 
branch is made to EOVDSK. 



The functions performed at this location 
vary with the type of record and end-of-job 
conditions: 

• If end-of-job, a branch is made to the 
end-of-job routine (Chart EJ) at PH3EJ2 
(after the last block has been written) 
or at TAPOUT (after the EOF indicator 
has been written) . 

* If not end-of-job, a branch is made 
back to FULOUT+8 for fixed-length 
records or to VARMOV for 
variable- length records to prepare to 
move the record to the output area (the 
record that would not fit previously 
because the output area was full) . 

Note : This is the only time that a 
record will be moved without 
first testing to determine if it 
will fit in the output area. It 
is certain to fit because it is 
the first one after a block has 
been written. (See note at end 
of UPDTO.) 



EOVDSK, EH-G4 



TAPPUT, EH-C5 



An EXCP macro is issued and IOCS writes a 
block of records on the disk or tape output 
file. The parameters for the write 
operation are supplied by OCCB., When 
control is returned by IOCS, this routine 
branches to AOJOUT if the output is on 
disk; if on tape, the output block count is 
updated before continuing to ADJOUT. 



Register MREG is saved and the address of 
OCCB is loaded in MREG. A •V 1 is placed in 
register RG12 and the open/close routine 
(Chart EM) is called in (via CEVCHK) to 
process the end-of- volume condition. 

If end-of-job has not yet been reached, 
control is returned to this routine (via 
CEVCHK). After restoring register MREG, a 
branch is made to the address in register 
RG13, which is FULOUT+8 for fixed-length 
records on tape, or VARMOV for 
variable-length records on tape, or TAPEO 
for either record type on disk- 
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END-OF-JOB ROUTINE - EJ 



This routine is entered when all the input 
files have been closed. Its principal 
functions are: 

• Initialize to reconvert the last record 
moved and to exit to the user (if 
required). 

• Initialize to write the last block. 

• Initialize to write an EOF record (disk 
output only) . 

• Insert an EOF indicator for the 
open/close routine. 

• Call in the open/close routine to close 
the output file, print an E0J message, 
and end the job. 



RGl f which contains 0BEGIN+8, is subtracted 
from FILEO, thus giving a result of for 
the data length. This data length of on 
disk is the end-of-file record. A branch 
is then made back to this routine at TAP0UT 
from the instruction following PH3EJ1 in 
the output routine • 



TAPOOT, EJ-J3 



The output CCB C0CCB) is loaded in register 
MREG and an •P' for end~of~file is loaded 
in register RG12- The open/ close routine 
is then called in (via CEVCHK) to close the 
output file and to branch to the end-of~job 
messages routine. The job will then be 
ended with an E0J macro. 



END-OF-JOB MESSAGES - EK 



PH3E0J, EJ-B3 



Register RG10 is made negative to indicate 
to the user that the last record is in the 
output area. The instruction before UPDTO 
and the one at ENTRY (both in the output 
routine, Chart EH) are modified to branch 
back to this routine at ADDl after the last 
record has been processed. A branch is 
then made to C0NVRT in the output routine. 
If necessary, the record is reconverted and 
a branch is made back to ADDl if user exit 
43 was not specified; otherwise, the output 
routine exits to the user routine after 
which a branch is made back to ADDl. 



ADDl, EJ-E3 



The output routine is modified to write the 
last block from the output area and a 
branch-and-link is made to WRITEV (if no 
key) or to LWRITE (with key) in the output 
routine. After the last block is written, 
a branch is made back to this routine at 
PH3EJ2 from the instruction following 
PH3EJ1 in the output routine. 



PH3EJ2, EJ-H3 



For tape output, a branch is made to 
TAPOUT. For disk output, 0BEGIN (address 
of start of output area) is loaded into 
register FILEO, eight is added to FILE0, 
and a branch- and- link is made to WRITEV in 
the output routine to write an end- of -file 
record on the disk. At WRITEV, register 



After the last block has been written out 
in the end-of-job routine (Chart EJ) in the 
mainline, overlay DSORT401 is called into 
main storage and this routine is entered 
through CL0SEO in the open/ close routine 
(Chart EM). 



EOJMES, EK-C3 



The number of unreadable blocks that were 
bypassed in the mainline is obtained from 
location ERRCT. If the number is zero, a 
branch is made to PH4E0J; if not, message 
BYPMES is printed: 

•7DD4I PHASE 4 UNREADABLE BLOCKS 
BYPASSED 00000 f 

The zeros at the end of the message are 
replaced by the number from ERRCT. 



PH4EOJ, EK-E3 

The number of records processed by phase 4 
is obtained from location RCODNT and 
messages RECMES and MESEOJ are printed: 

••7DD5I RECORDS PROCESSED 000000000' 

•7DD6I END OF MERGE 1 

The zeros at the end of the first message 
are replaced by the number from RCOUNT. 

The EOJ macro is then issued and the job 
is terminated. * 
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SEQUENCE- ERROR ROUTINE - EL 



'7DD2A INVALID RESPONSE'. 



When a record is found to be out of 
sequence in the output routine (Chart EH) 
in the mainline, overlay DS0RT4 01 is called 
into main storage and this routine is 
entered through COMP in the open/close 
routine (Chart EM) • The branch to this 
routine is made when COMP detects that the 
mainline return address is lower than that 
of the CCB for file A. 

The routine first prints a 
sequence- error message. Then, if a 1052 
Printer -Keyboard is provided, it checks for 
the operator response and either returns to 
the output routine in the mainline to 
resume processing or cancels the job. If a 
105 2 is not provided, the routine returns 
to the output routine immediately after 
printing the message. 



SEQERR, EL-C3 

The file designation (A, B, C, or D) is 
obtained from XFILE and inserted in the 
error message (SEQMES1 ) . An EXCP macro is 
issued and the message is printed: 

•7DD2D SEQ. ERROR FILE n' 

The routine then continues to RESPONSE, 



When an invalid response is made, the 
routine branches back to read the corrected 
response as described in the preceding 
paragraph. 



RESPONSE, EL-E3 



When this overlay was initialized (Chart 
EA) , the instruction at this location was 
made an unconditional branch to EXIT (Chart 
EM) if the system does not include a 1052 
Printer -Keyboard. In this case, the 
program returns to the output routine at 
location SEQBACK (Chart EH) and processing 
is resumed. 

When a 1052 is provided, the operator 
response appears in SEQMES2 and an EXCP 
macro is issued to read the response. 
Tests are made for the words 'IGNORE* and 
'CANCEL* in both upper- and lower-case 
characters and one of three courses of 
action is taken, depending on the results: 

• IGNORE or ignore - branch to EXIT to 
return to output routine at SEQBACK 
(Chart EH). 

• CANCEL or cancel - Issue CANCEL macro. 

• None of preceding - Issue EXCP macro 
and print message SEQMES3: 



OPHST/CLOSE ROUTINE 



EM 



This routine is read from disk into main 
storage whenever the merge mainline detects 
an end-of-volume or end-of-file condition. 
It is also called in at the start of the 
merge phase to perform the initial OPEN for 
the output file and all the input files. 

The routine was initialized (Chart EA) 
for the type of output file and of each 
input file (disk, tape, or mixed) as well 
as for label types and user options. Its 
functions now vary not only with the manner 
in which it was initialized, but also with 
the condition for which it was called and 
with conditions that are detected within 
the routine and in IOCS. 

The major functions are: 

• Open the output file and all the input 
files required by the order of merge. 
This is done at initial open time. 

• Provide linkage to IOCS and between 
IOCS and the user's routines at exits 
41 and 44. Exit linkage is provided 
only when specified. 

Note : When exit 41 is specified by the 
user, the sort/merge program 
turns on the corresponding bit 
in the DTF tables for all the 
input files. IOCS will then 
provide linkage to exit 41 only 
for those files that have 
non-standard or user labels. 

• Open and close individual input volumes 
and files as required by the merge 
mainline, IOCS, or this routine. 

• Open and close output volumes (if 
multivolume output) and, when the 
output file is closed, branch to the 
end-of-job routine (Chart EJ). 

• Test if entry was for sequence error 
and, if so, branch to the 
sequence-error routine (Chart EL). 

After each execution, the routine is 
written back on disk in the checkpoint 
track and the merge mainline resumes 
processing in all cases except at 
end-of-job or if job is canceled by user 
because of sequence error. 
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BEGIN, EM-B2 



OPENA, EM-B3 



The contents of registers RG10 through RG15 
are stored so that these six registers can 
be used in this routine. 

The first time that this routine is 
called into main storage by the merge 
mainline will be when the output file is to 
be opened- The address of the output CCB 
(which is in register MREG) is stored in 
ADDROUT and the routine continues to 0PEN0 
where the output file (FILEO) is opened. 
If the user has specified exit 44, IOCS 
branches to USEREX44. When control is 
returned to this routine by IOCS, the 
program continues at NIEFO. 

The second entry to this routine (after 
the output file is opened) branches 
directly to OPENA. 



When this location is entered for the first 
time, the first input file (file A) is to 
be opened. The address of the CCB for file 
A (ACCB, which is in register MREG) is 
stored in ADDRINP. The instruction at 
BEGIN* 4 is then made an unconditional 
branch to 0PENX for all future entries 
during this job because the initial open of 
the output file and of the first input file 
(OM is at least 1) will not be repeated. 
The routine now continues to OPE NX. 

All subsequent entries to this routine 
will branch directly to 0PENX. 



OPENX, EM-D3 



USEREX44, EM-B5 



When the user has specif ed exit 44 in the 
MODS control card, IOCS branches back to 
this location after each OPEN and CLOSE of 
an output volume or file. 

The address of the user's routine 
(USABDR) is loaded and a branch- and- link is 
made to the user's routine. Control is 
returned by the user at one of two 
locations where the appropriate LBRET macro 
is issued: LBRET1 indicating no more 
labels or LBRET2 indicating more labels. 
Control is then returned to IOCS. 



NIEFO, EM-E2 



For disk output, the upper and lower limits 
of the extent are stored at ORADDR 
(OCCB+16) and the logical unit address is 
stored in 0CCB in the merge mainline; the 
routine then continues to EXIT. 



For tape output , 
directly to EXIT. 



the routine branches 



The end-of-volume ('V') or end-of-file 
CF*). indicator, which was inserted in 
register RG12 by the merge mainline, is 
stored in XFILE (this indicator will have 
no effect when input is on tape). 
Registers RG12 and RG13 are loaded with the 
addresses of OCCB and ACCB, respectively, 
and a test is made (using RG12) to 
determine if this routine was entered for 
the output file. If so, a branch is made 
to OUTPUT; for an input file, the routine 
continues to C0MP. 



COMP, EM-D4 



A test is made (using RG13) for the input 
file that is to be opened or closed (from A 
to D, depending on the order of merge). If 
the result of the test is: 

• lower than A - a sequence error was 
detected in the merge mainline; branch 
to sequence- error routine (Chart EL) . 

• equal to A - file A is to be opened or 
closed; branch to INPUT. 

• higher than A - file B, C, or D is to 
be opened or closed; get the addresses 
of next highest DTF and CCB and repeat 
the test until an equal condition 
results; branch to INPUT. 



EXIT, EM-H2 



OUTPUT, EM-F3 



The contents of registers RG10 through RG15 
are restored and a branch is made back to 
the merge mainline to the address in 
register LINK. 



This location was initialized for either 
disk or tape output: 

* Disk - Branch to OUTDK 
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Tape - Move the output block count into 
the tape output DTF (FILEO+40) , then 
reset the block count (in OCCB+20) to 
zero. Continue to OUTDK. 



there are additional input files to 
open. The OM is decremented by 
one, a *V f is placed in XFILE (to 
denote not end~of-f ile) , and a 
branch is made to GOGOl. 



OUTDK, EM-H3 



A test is made for end-of-file ( 'F f in 
XFILE), If such is the case, a branch is 
made to CLOSEO; if not, the branch depends 
on the type of file: 

* Disk - to OPENO 

* Tape - to FEOVOUT 



FEOVOUT, EM-J5 



An FEOV macro is issued, IOCS closes the 
tape output volume and opens the next 
volume. If user exit 44 was specified, 
IOCS branches back to USEREX44 in both 
cases (close and open). When control is 
returned to this routine by IOCS, the FEOV 
bit in the DTF table is turned off and a 
branch is made to EXIT. 



b. When the OM has been decremented to 
zero, all but one of the required 
input files have been opened. A 
branch is activated from INPUT to 
GOGO, a 'V* is placed in XFILE, and 
a branch is made to GOG 01 to 
continue processing for the initial 
OPEN of the last file. 

2. When INPUT is entered the first time 
after the initial OPEN's have all been 
executed, a branch is made to GOGO. 
Here, the instruction at location 
MODIFY is initialized to return to the 
mainline at the appropriate GETn 
instruction (see MODIFY for further 
details). Then a branch is activated 
from INPUT to G0G01 and the routine 
continues to GOGOL 

3. All subsequent entries to INPUT branch 
directly to GOGOl because the functions 
described in the preceding items la , 
lb, and 2 are no longer needed. 



CLOSEO, EM-J3 



A CLOSE macro is issued and IOCS closes the 
output file- This occurs after the last 
block has been written and an VF* has been 
placed in register RG12 in the merge 
mainline. If user exit 44 was specified, 
IOCS branches back to USEREX44. When 
control is returned to this routine by 
IOCS, the program continues to the 
end-of-job routine (Chart EJ) . 



INPUT, EM-E4 



The processing between this point and GOGOl 
varies with the OM (order of merge) and the 
time of entry to INPUT. The purpose of 
this portion of the routine is to first 
perform the initial OPEN for all the input 
files required by the OM, then to prepare 
for subsequent entries, and finally to 
bypass this portion when it is no longer 
needed. The several courses of action are: 

1. On the first entry to INPUT, at least 
one input file must be opened, 
therefore: 

a. As long as the OM is one or more, 



GOGOl, EN- CI 



The address of the DTF table for the file 
to be opened or closed is stored in the 
OPEN and CLOSE macros. The file 
designation (A, B, C, or D) is stored in 
FILETYPE+3 to be available to the user (in 
case exit 41 is specified). 

A test is then made for tape input and, 
if positive, a branch is made to TAPEIN. 
For disk input, the switch at TPDKSW is 
turned off (no-op) and a • D* is stored in 
FILETYPE+1 to be available to the user (in 
case exit 41 is specified). Location XFILE 
is then tested and if a *V* is detected a 
branch is made to OPENI. If an • F f is 
detected in XFILE, the unit exception bit 
is turned on in the CCB portion of the DTF 
table for the current file and the routine 
continues to OPENI. 



OPENI, EN-G2 



An OPEN macro is issued and IOCS opens the 
designated input file (or volume of a 
file). If the user has specified exit 41, 
IOCS branches to USEREX41. When control is 
returned to this routine, one of two 
courses of action is taken at TPDKSW: 
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For tape (TPDKSW is ON) - Branch to 
NIEFI 



TAPEIN, EN-E1 



For disk (TPDKSW is OFF) - The upper 
and lower limits of the extent are 
stored at ARADDR in the merge mainline 
(or BRADDR, etc., as the case may be). 
The logical unit address is stored in 
the CCB for the file that was just 
opened and the routine continues to 
MODIFY. 



The switch at TPDSKW is turned on 
(unconditional branch) and a f T' is stored 
in FILETYPE+1 to be available to the user 
(in case exit 41 is specified). The 
routine then continues to SWITCH2. 



SWITCH 2 f EN-F1 



MODIFY, EN- J 3 



This instruction was initialized earlier in 
this routine (see text for item 2 under 
INPUT ) after the initial OPEN of all the 
required input files. It is entered after 
each subsequent OPEN of disk input files, 
except when an end-of-file is detected. 

The address in the mainline to which the 
program will return (after this open/ close 
routine is written back on the checkpoint 
track) is incremented so that the branch to 
the input routine will be to the next GETn 
instead of to the USTOPn for that file 
(Chart EC). After incrementing register 
MREG by the required amount, a branch is 
made to EXIT. 



NIEFI, EN- J 2 



The instruction at this location was 
initialized for the CLOSE rewind option. 
The bit in the DTF table (for the file that 
was just opened) is now set for the 
specified option and a branch is made to 
EXIT. 



As long as the order of merge for tape 
(TPOM) is one or more, the routine branches 
to OPENI for the initial OPEN of each tape 
input file. When TPOM has been decremented 
to zero, SWITCH2 is made in unconditional 
branch to G0G02 for end-of-volume or 
end-of-file processing. 



G0G02, EN-G1 



The input block count is reduced by one 
because it would have been incremented in 
the mainline before the E0V or EOF was 
detected. The corrected count is stored in 
the DTF table for the current file and is 
then reset to zero for the next volume or 
file. 

If the last volume of a file is to be 
closed (test V0LA, which is equal to 
current CCB+19), a branch is made to 
EOFTAPE. If there are more volumes in the 
current file, the label type is obtained 
from LABTYPn (current CCB+16) and used to 
initialize the branch at FEOVTP: 

• Standard labels and non-standard labels 
with user exit - activate the branch to 

MEND. 



USEREX41, EN-B3 



Non-standard labels without user exit 
and unlabeled files - do not activate 
branch. 



When the user has specified exit 41 in the 
MODS control card, IOCS branches back to 
this location after each OPEN and CLOSE of 
an input volume or file*. After 
designating the type of labels and the file 
in process, the address of the user's 
routine (USADDR) is loaded and a 
branch- and-link is made to the user f s 
routine. When control is returned by the 
user, an LBRET2 macro is issued by this 
routine and control is returned to IOCS. 



♦See note in the introduction to this 
routine pertaining to the linkage 
between IOCS and exit 41. 



The number of volumes in the current 
file is reduced by one and the routine 
continues to FEOVTP. 



FEOVTP, E.N-H5 



An FEOV macro is issued, IOCS closes the 
tape input volume and opens the next 
volume. When control is returned to this 
routine, the FEOV bit in the DTF table is 
turned off. 

The address in the mainline to which the 
program will return (after this open/ close 
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routine is written back on the checkpoint 
track) is incremented at location ADD26 so 
that the branch to the input routine will 
be to the next GETn instead of to the 
USTOPn for that file- After incrementing 
register MREG by the required amount, a 
branch is made to EXIT. 

Note that FE0VTP is entered for 
unlabeled files and for non-standard labels 
without user exit. In both cases, the user 
exit bit will be off. 



EOFTAPE, EN-G4 



The bit in the DTF table at FILEn+32 is set 
on to force an end -of -file condition, and 
the routine continues to MEND. 



MEND, EN-H4 



The FEOV bit is turned off in the DTF table 
for the current input file, and an 
expansion of the END macro is executed. If 
user exit 41 was specified, IOCS branches 
back to USEREX41. 



CHECKPOINT ROUTINE - EP 



This routine is used to alternately write 
on disk and read into main storage overlays 
DSORT401 and DSORT402. At the beginning of 
phase 4, DSORT401 is loaded by job control 
and, at the completion of its 
initialization, it is written on disk and 
DSORT402 is fetched by a self-contained 
subroutine in DSORT401. All subsequent 
linkage between the two overlays is made by 
this checkpoint routine which is in the 
resident portion of DSORT402 in main 
storage. 



The read and write functions are 
performed by the same set of instructions, 
starting at location SVCKPT. The first 
instruction changes the command code in the 
read/write CCW from 'read data* (06) to 
'write data' (05) alternately each time it 
is executed, the second one loads the CCB 
address (CHKCCB) , and the third issues the 
EXCP macro. The program is assembled with 
the read command code in the CCW and it is 
left that same way at the end of each 
execution of this routine. The routine is 
written so that the checkpoint track number 
is also alternated as required: Track 1 
for DSORT402, Track 2 for DSORT401. 



If IOCS detects an end-of-file condition 
(either in the EOF bit which was turned on 
in the DTF by this program or in labels) , 
it branches back to CLOSEI, which is the 
end-of-file address that IOCS finds in the 
DTF table. If end of file is not detected, 
when IOCS returns control to this routine 
the branch address in the mainline is 
modified at location ADD 2 6 so that the 
branch to the input routine will be to the 
next GETn instead of to the USTOPn for that 
file. The routine then branches to EXIT. 



CLOSEI, EN-B4 



A CLOSE macro is issued and IOCS closes the 
input file. If user exit 41 was specified, 
IOCS branches back to USEREX41. When 
control is returned to this routine by 
IOCS, a branch is made to EXIT. 

Note that when a CLOSE macro is 
executed, the address in the ma inline to 
which the program returns will not have 
been incremented at MODIFY nor at ADD 26. 
The return point is therefore to USTOPn 
(for the file that was just closed) and the 
compare loop for that file is deactivated 
or closed. 



When this routine is entered at CEVCHK 
for initial open of files or for EOV or 
EOF, register RG9 (MREG) will have been 
loaded with the address of the CCB for the 
file in process. The return linkage to the 
mainline is then made with MREG after the 
DSORT4 01 functions are completed. Note 
that each CCB in the mainline is followed 
by three full words and one ha If word which 
contain constants that are used throughout 
the phase. Not all of these constants are 
used by the DSORT401 overlay, but they were 
placed at these locations to maintain the 
same displacement between the CCB's. For 
the same reason, no-ops have been placed in 
the series of instructions following UST0P3 
and USTOP4, Thus, UST0P1 through UST0P4 
are located at MREG* 30 for ACCB through 
DCCB, and the branches to GET1 through GET4 
are at MREG+30+26 (the 26 additional bytes 
are added by MODIFY for disk or by ADD2 6 
for tape in the open/close routine, Chart 
EN, and are used for return after end of 
vo lume ) . 



The various linkages between overlays 
and within overlay DSORT401 are summarized 
in Figure 50. 
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Enter from 


Routine 


Purpose 


Return to 


FILLDL 


Initialization 


Open output file 


OCCB+30, which is a branch via 
register RG13 to TAPE 1-2 in the 
input routine 


EOFDK 


Error 


1 . Initial open of input 


1 . nCCB+30, which is USTOP1 through 






files 


USTOP4, per order of merge 






2. EOV on input tape 


2. nCCB+30+26, which is GETn for 






(open next volume) 


corresponding file 






3. EOF on input tape 


3. nCCB+30, which is USTOPn for 






or disk 


corresponding file (to close 
loop for depleted file) 


CPIADD 


Input 


EOV on input disk (get 


nCCB+30+26, which is GETn for 






next extent) 


corresponding file 


SEQERR 


Output 


Sequence error 


MREG+30, which is SEQBACK in 
output routine, if the sequence 
error is to be ignored; if not, see 
Chart EL. 


EOVDSK 


Output 


1 . EOV on output tape 


1 . OCCB+30, which is a branch via 






or disk 


register RG1 3 to TAPEO (for disk) 
or PH3EJ1 (for tape) in the 
output routine 






2. EOF on output tape 


2. EOJMES, Chart EK 






or disk 





Figure 50. Linkages Between Overlays 



At USTOPn (MREG+30), when the input 
files are being opened, the compare loop 
branches are initialized for the 
corresponding file and a bit is set in the 
merge-status indicator (PH2MOM). The 
instruction at USTOPn+20 is a no-op at this 
time so that a branch is made to GETn to 
perform the first read from that file. 

As soon as the no-op at USTOPn +20 is 
passed, it is converted to an unconditional 
branch. When a particular USTOPn is 
entered the second time, it will be because 
an EOF has been detected in that input 



file. This time through, the compare loop 
branches for the depleted file are closed 
off and the corresponding bit in PH2MOM is 
inverted to zero. As long as there are 
more files to merge, the branch at 
USTOPn +20 is to an address in the remaining 
compare loops which varies with current 
file and the order of merge; these 
addresses are listed on Chart EC. When all 
the input files are depleted and the 1-bits 
in PH2MOM have been inverted to O-bits, a 
branch is made to the end-of-job routine 
(Chart EJ). 
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OPTIONAL ROUTINES 



RELOCATOR ROUTINE - FA 



Phases 2, 3, and 4 each have a relocator as 
part of the individual phase. The three 
routines are enough alike that their logic 
is described in this one section; any 
significant differences are noted in the 
function- block text. 

The optional routines required in each 
phase are initialized and relocated in main 
storage in the minimum required area 
depending on the number and length of 
required routines* The major steps 
performed are: 

• Initialize the relocator by turning on 
specified bits only for those optional 
routines that are required. 

• Adjust the lengths of the optional 
routines to the next full* word 
boundary, if necessary. 

• Relocate each required routine when 
necessary so that they immediately 
follow each other starting at the end 
of the mainline. In this manner, any 
unneeded routines, or portions of 
routines, are overlaid and the program 
then occupies the least possible amount 
of main storage. 

• Activate branches in the selector to 
the proper address for a routine, if 
required. 



In phase 3, in addition to initializing 
the move routine as described for phase 
2, a bit is turned on in RLCOND for the 
required data reconversion routine, if 
any. The selected routine is then 
initialized by preparing the selector 
at SIR 3 with the address of the desired 
routine and by inserting the number of 
control fields. Finally, the equal 
routine, if required, is initialized at 
EQINIT. 

In phase U, the selected data 
conversion/reconversion routine, if 
any, is initialized as described for 
phase 3. Then the equal routine, if 
required, is initialized at EQINIT. 
The other operations described for 
phases 2 and 3 are not required in the 
phase 4 relocator, because the move 
routine is assembled and executed in a 
different manner and the bits in RLCOND 
were set at CLIFOR in the 
initialization routine (Chart EB). 



RLFWB, FA-D2 



The optional routines are aligned to 
full-word boundaries, if necessary, and the 
routine continues to RLRUTR. 



RLRUTR, FA-E2 



The relocator then returns to the 
mainline initialization routine in its 
respective phase. 



RELOCA,. FA-B1 



The operations performed between this 
location and RLFWB vary, depending on the 
phase in process: 

♦ In phase 2, a bra nch-and- link is made 
to EQINIT to initialize the equal 
routine, if required. The move routine 
in the mainline is then initialized to 
move the specified record length 
(fixed-length records only). If 
necessary, the move routine is then 
relocated to the end of the mainline 
or, if the equal routine is included, 
to the end of the equal routine. 



Starting with the equal routine, location 
RLCOND is tested to determine which of the 
optional routines are required. If the 
optional routine tested for is not 
required, the program branches to RLMDGT to 
modify the relocator to test for the next 
optional routine. 

If the routine tested for is required, 
its starting address is compared to the 
address of the first byte available for the 
optional routines in the main storage I/O 
area (RLISA). 

If the two addresses are equal, no 
relocation is required and a branch is made 
to RLUPDT. The need for relocation depends 
on one or more of several factors: 

• Whether or not a data conversion 
routine is required, and if it is, 
which one and for how many control 
fields. 



194 IBM S/360 DOS Sort /Merge 



• Whether or not the equal routine is 
required, 

• The length of the move routine (phases 
2 and 3 only). 

If relocation is required, the routine 
is moved from its old address (original) to 
its new address (starting at the address 
contained in RLISA) , 256 bytes at a time. 
After the last move (which may contain less 
than 256 bytes) is executed , the selector 
branch is updated for the routine just 
moved. The total length count (counting 
from the end of the mainline program) is 
increased by the length of the routine just 
included. The re locator then continues to 
RLUPDT. 



RLUPDT, FA-C3 



EQINIT, FA-B4 



In phases 3 and 4, a test is made to 
determine the number of control fields. 
For more than one control field, register 
is initialized with the address of the 
control field table (CF1LCT-1) and the 
sequence of the first control field is 
saved. If the record contains only one 
control field, the program branches to 
ANONE to initialize the data conversion 
routines for one control field. 

Note ; In phase 2, ANONE is not used (no 
data conversion in phase 2). 

In phases 2, 3, and 4, register 8 is 
then loaded with the number of control 
fields, and the routine continues to 
ANIVTA. 



The starting address of the I/O area 
(RLISA) is increased by an amount equal to 
the length of the optional routine just 
included in the program. This will be the 
new starting address for the next optional 
routine that may be required or, if no more 
are required, this will be the starting 
address of the I/O areas. 



RLMDGT, FA-H3 



The relocator is modified to process the 
next optional routine. This includes: 

• The location of the length of the next 
routine. 

• The testing mask at RLINVR for 
determining if the next sequential 
routine is required. 

• The constant used for updating the 
testing mask. 



ANIVTA, FA-DU 



The displacement and length of the control 
field are inserted in the compare set in 
the equal routine. The first time through, 
both operands are initialized for the first 
control field only. On subsequent passes 
(one for each control field), the operands 
for the other control fields are 
initialized. 

A test is then made to determine if the 
sequence of the current control field is 
the same as that of the first control 
field. If it is, the equal routine base 
registers are placed in ascending order in 
the first and second operands of the 
compare instruction for that control field. 
If the sequence is opposite to that of the 
first control field, the base registers are 
reversed in the operands. The equal 
routine is thus initialized to sort each 
control field in the specified sequence. 



RLSTRP, FA-J3 

The relocator branches back to RLRUTR to 
process the next optional routine until all 
the assembled optional routines have been 
checked and processed. Control is then 
returned to the mainline initialization 
routine: 

• In phase 2, at START in Chart CA. 

• In phase 3, at START in Chart DA. 

• In phase 4, at INIT3 in Chart EB. 



ANIULT, FA-GU 



The addresses of the next control field 
location and of the next compare 
instruction in the equal routine compare 
set are obtained. The routine then 
branches back to ANIVTA to initialize the 
compare for the next control field. When 
processing for all control fields is 
complete, the length of the equal routine 
is computed and inserted in RLNG2. Control 
is then returned to the relocator at label 
RLFWB. 
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FIXED- POINT CONVERT/RECONVERT ROUTINE - FB 



This routine converts the control data 
fields from fixed-point format to binary by 
inverting the sign of each control field* 



positive floating-point fields within each 
record so that they can be used in the 
compare operations of the sort program. 



FIXPNT, FB-B3 



FLTPNT, FC-B1 (FOR CONVERSION ONLY) 



A register is initialized with the starting 
address of the compare set. (Compare set 
at IGICOM in the equal routine contains the 
length and the displacement of the control 
fields. ) 



Registers are initialized with the address 
of the compare set and the number of 
control fields to be converted. 



FIXR2, FB-C3 



The number of control fields (established 
by the fixed-point initialization routine) 
is loaded into a register. This number is 
used to end the conversion routine after 
all control fields have been processed. 



FLTVTA, FC-F1 



The address of the first control field is 
determined. If the sign of this field is 
positive, the sign only is inverted 
(FLTCSG). If the sign is negative, the 
entire control field, including the sign, 
is comp 1 ement ed < FLTC ML ) . 



FIXVTA, FB-D3 



The address of the control field to be 
converted is calculated and the sign bit is 
inverted. The address is modified to 
determine the starting address of the next 
control field, and the count of the number 
of control fields is reduced by one. The 
program returns to the instruction at the 
label FIXVTA, and the process is repeated 
until the count of the number of control 
fields is reduced to zero and control is 
returned to the mainline. 

Reconversion follows the same procedure, 
thus restoring the inverted sign bit of 
each control field to its original form. 



FLTBCK, FC-E3 



The starting address for the next control 
field is determined, and the count of the 
number of control fields is reduced by one. 
The program returns to the instruction at 
the label FLTVTA, and the process is 
repeated until the control field count 
becomes zero, indicating that all the 
control fields have been converted. 
Control is returned to the mainline via the 
link register in phases 2 and 4; phase 3 
branches to EXIT32 in the output routine. 



FLOATING-POINT CONVERT/RECONVERT ROUTINE - 

FC 



This routine converts the control data 
fields from floating-point format to 
binary. The program modifies negative and 



To reconvert the control fields to the 
floating-point format, the reconversion 
switch (FLTSWH) is set, reversing the 
procedure in FLTVTA and restoring the 
control field to its original form (Figure 
51). 
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Reconversion 
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Conversion 
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+ 


Reconversion 


+ 


ON 
ON 


Sign bit 
Field 


+ \ Restored 
-/Sign 



Figure 51. Floating-Point Conversion 



PACKED- DECIMAL (SIGPAK) CONVERT/RECONVERT 
ROUTINE - FD 



This routine converts control data fields 
from packed- decimal format to binary. The 
sign is moved to the high-order half byte 
of the control field, and the entire field 
is shifted (one byte at a time) a half byte 
to the right. The sign is always reversed 
and, if the number is negative, the entire 
control field is complemented. 



SIGPK2, FD-C1 

The address of the compare set is loaded 
into a register. 



SIGKR2, FD-D1 



The number of control fields (obtained 
during initialization of packed-decimal 
conversion routine) is loaded into a 
register. This number is used to end the 
conversion routine after all control fields 
have been processed. 



PAKLP2, FD-E2 



The digit portion (two hex digits) is 
shifted a half byte to the right and is 
complemented if the sign value (PKSGN2) is 
negative. 



A test is made to determine if the 
left-most byte of the control field 
(high- order position) has been reached. If 
not, the byte address is modified to obtain 
the next byte to the left, and the program 
returns to PAKLP2 to repeat the process for 
the next byte. If the high-order byte is 
detected (indicating the end of the control 
field), the sign bits are retrieved from 
PKSGM2 and placed in the leftmost 4 bits of 
the converted control field. The sign is 
then reversed. 



The control-field address is modified 
for the next field to be converted. Each 
control field is converted in the same 
manner and, when the last field has been 
converted, control is returned to the 
mainline via the link register. 



Reconversion takes place in a similar 
manner, except that the digit portion is 
shifted left (instead of right) a half 
byte, and the sign bits are restored to the 
low-order byte of the control field. 



SIGCP4, FD-E1 



The address of the sign byte is calculated, 
and the sign bits are stored in PKSGN2. 
The sign bits are tested for a negative or 
a positive value (in either EBCDIC or ASCII 
code). If positive, a true positive sign 
(hex C for EBCDIC or hex A for ASCII) is 
generated. 



20NED-DECIMAL (SIGZQN) CONVERT/RECONVERT 
ROUTINE - FE 



This routine converts control data fields 
from zoned- decimal format to binary. The 
sign of the control field is saved, and the 
leftmost zone is moved to the sign 
position. The sign is then inserted in the 
leftmost zone of the control field and 
reversed. If the number is negative, the 
entire field is complemented. 
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SIGZN2, FE-B1 



EQUAL ROUTINE - FF 



Registers are initialized with the address 
of the compare set and the number of 
control fields to be converted. 



This routine compares record control fields 
subsequent to the first if the first fields 
are found to be equal when compared in the 
mainline* 



SIGCP2, FE-D1 



The address of the last, low-order , byte of 
the control field is calculated and the 
sign is stored in Z0NZN2* The leftmost 
(high-order) zone bits are moved to the 
position previously occupied by the sign 
bits f and the content of Z0NZN2 is tested 
for a positive or negative value (in either 
EBCDIC or ASCII code). If positive, a true 
positive sign (hex C for EBCDIC or hex A 
for ASCII) is generated in Z0NZN2* In 
either case, the sign is then moved to the 
position vacated by the zone bits, Once 
moved, the sign is reversed, and a branch 
is made to ZNLST2* 



The compare set was previously 
initialized for proper sequencing of each 
control field* As a result, if any fields 
are now found to be unequal, the proper 
sequence will be observed upon returning to 
the mainline conditional branches. If all 
fields are equal, the return point in the 
mainline is: 

• In phases 2 and 3, to the branch 
instruction preceding the BAL or BALR 
to this routine, 

• In phase 4, to the next sequential 
instruction after the BAL to this 
routine* 



Z0NPS2, FE-E4 



If Z0NZN2 is negative, the digit bits are 
complemented, and the byte address is 
updated for the next byte to the left. The 
program returns to Z0NPS2 to invert the 
digit portion of each byte (one byte at a 
time) until the high-order byte is 
processed* The routine then continues to 
ZNLST2* 



R0UT1, FF-B3 



Note ; In phases 2 and 3, this label is 

EQUAL* 

Entry is made to this point when the first 
control fields of two records were found to 
be equal in the mainline compare loops* 
The link register (register 14) is adjusted 
to the address of the mainline compare 
instruction from which this routine was 
entered* 



ZNLST2, FE-H4 



When the last byte of the control field has 
been processed, the control field address 
is modified for the next field, and the 
routine returns to SIGCP2 to convert the 
remaining control fields in the same 
manner . 

When all control fields have been 
processed, control is returned to the 
mainline via the link register* 

The control fields are reconverted from 
binary to zoned-decimal format by: 

• Restoring the sign to the original 
position and reversing it to its 
original state. 

• Restoring zone bits to their original 
locations* 

• Inverting the digit portions of each 
byte, if necessary. 



The base registers from the mainline 
compare instruction are determined and 
inserted in the instructions at IGCAR1 and 
IGCAR2* These two instructions then load 
the registers in the operands of the 
compare set of this routine* Note that the 
compare set was initialized with its base 
registers in the proper operand in each 
compare, depending on whether the sequence 
for that control field was the same as or 
different from that of the first control 
field. In this way, each of the required 
control fields will be compared for the 
proper sequence, regardless of whether it 
is ascending or descending. 



IGLCOM, FF-D3 



The corresponding control fields in the two 
records are compared until either an 
unequal condition is found or the end of 
the compare set is reached* In the former 
case, a branch is made (via IGOUT) back to 
the conditional branches following the 
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mainline compare instruction to continue • In phase 4 , to the next sequential 

processing the record. In the latter case, instruction after the BAL to this 

when all corresponding fields within the routine. 

two records were found to be equal , the 

address for returning to the mainline is 

adjusted (at IGDUM) : A branch is then made (via IGDUM) back 

to the mainline to continue processing. 
• In phases 2 and 3, to the branch 

instruction preceding the BAL or the 

BALR to this routine. 
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D 


f START 


SORT 


B2 




AA 




Read and Compress 
Control Cards 


DSORT002 


C2 




AB 




Sort Compressed 
Control Cards 


DS 


ORT003 


D2 




AC 




Scan SORT, 
MERGE, and 
RECORD Control 
Cards 


DS 


DRT004 


E2 




AD,AE 




Scan INPFIL, 
OUTFIL, MODS, 
OPTION and END 
Control Cards 


DS 


DRT005 


F2 




AF,AG 




Open Work Area 
and Pre-Edit 


DS 


ORT006 


G2 




AH 




Compute Maximum 
Allowable Input 
and Output Record 
and Block Lengths 



Compute Constants 
for Fixed-Length 
Records 




VARRTN 



AM 



Compute Constants 
for Variable- 
Length Records 



Compute Constants 
for ADDROUT Sort 



Select Order of 
Merge 



AR,AS 



Print Option 
and Fetch 
Next Phase 




PANCO 
(DSORT401) 



Chart 01, Assignment Phase (Phase 0) 
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Initialize 
Base Registers 
and Get Data 
and Addresses 



Initialize Control 
Card Area Index 
Register 



Initialize Read-In 
and End-of-Scan 
Registers 




Get Card Number 
and Move Message 
to Save Area 




Set Indicator for 
Message to be 
Printed 



Check for PRINT, 
CALCAREA, and 
ADDROUT 
Options 



Chart AA„ Read and Compress Control Cards, DSORT 



Charts 201 




Retrieve Messages 
Stored in CCSAVE 



C3 



Determine Length 
of Card (Less Code) 
to Move-lnit 
TBLADO 




Increment Index 
Register to Test 
Next Byte 



Chart AB. Sort Compressed Control Cards, DSORT002 
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Set Sort Indicator 
and Initialize Index 
Register 




Chart AC. Scan SORT, MERGE, and RECORD Control Cards, DSORT003 



Charts 203 



FETCH4 
DSORT004 J B1 



Initialize Registers\ 
and Reset Error 
Switch Off 



Initialize TBLAD0 
Ctr and Address 
of Control Card 
Table 




Reset Error 
Switch Off and 
Initialize Error 
Return Switch 
and TBLADD Ctr/ 



< MODS Card ^ti --. 





Initialize to 
Extract Phase 3 
Exit Data 



OPTSCN 



Chart AD, Scan INPFIL, OUTFIL, MODS, OPTION and END Control Cards, DSORT004 
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I — r AC - J4 

l * J AD-J4 



Scan Option Card 
for Values and 
Build Table 



Search Dictionary 
of Definers 




ENDSCN 



Turn On Error Sw 
(End of Card Scan) 




ERROR+4 

(BAL Via Reg 10) 



Fetch Overlay 6 



( Fetch Overlay 10 ) 



DSORT010 



Chart A£. Scan INPFIL, OUTFIL, MODS, OPTION and END Control Cards (Cont'd), DSORT004 



Charts 205 




Sort Extents by 
Sequence and Save 




Build Half Work 
Area, Try to 
Build 2nd Half 



Get Number of 
Extent Tracks 
Required 




Chart AF„ Open Work Area and Pre-edit, DSORT 005 
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2*AF-E4 
AF-E5 
AF-C1 
B1 



Check Format, 
Record Length, 
Input Blocksize, 
Output Blocksize, 
Control Fields 



RT1 



Check Block Type, 
Input and Output 
Specified, and L4 



Determine CORESZ 
from User or 
Superv isor 




MERGE 



Initialize to 
Compute Phase 1 
Size 



Compute M&N for 
all Phases 



P2SIZE 



£ 



A3 





Compute Phase 2 
Size 


P3SIZE 


B3 


D 


Compute Phase 3 
Size 


r 






USESTR 


C3 




Compute User Area 
Length 


CF256 


D3 




Compute Total 
Length of All 
Control Fields 


N 


OVAR 


E3 



BLK2 



Initialize Phase 4 
Switch On 




Check Tag Type, 
L3, and Test for 
Exit 32 



TSTER5 




Any 
, Errors Detected, 



G3 
YES 



Fetch Overlay 6 




\. B1 
DSORT006 



Initialize PHS34 
with Merge Size 



Complete Phase 1 
Size Calculation 



^ 



^ 



Fetch Overlay 10) 



DSORT010 



Chart AG. Open Work Area and Pre-edit (Cont f d) f DSORT005 



Charts 207 



( From Overlay 5 J 



DSORT006 



Initialize fc 
Overlay 6 



CLORBV 




BLMAX4 



Initialize Reg 14 * 
for Branch to 
CVL3MAX 



Calculate LMAX 
for Phases 1,2, 
and 3 



Jl 



Compute LMAX 
and BMAX for 
Merge Only 



Initialize Reg H 
for Branch to 
CFL3MAX 



Calculate LMAX 
for Phases 1,2, 
and 3 



Determine Smallest 
LMAX Just 
Calculated 



Determine Smaller 

of: 

LMAX: 3624 (Fix) 

LMAX: 3620 (Var) 

Save in LMAX 



Calculate Phase 3 
LMAX and Save in 
L3MAX, hit Reg 
11 with CKBI 



FIXED/ 

ADDROUT 

SORT 



J2 



A3 



CKBI 



,'' s FIXED/ADDROUT 
.''Return Via X SORT 



1 



VARIABLE SORT 
B3 



Calculate BMAX 
for Phases 1,2, 
and 3 



DETLOWER 




C3 



Bl 



Deteimine Lowest 
BMAX for Sort 



CKBMAX 



NO 



C4 



Calculate Phase 1 
BMAX for Fixed 
Blocking and Not 
Addrout 



D3 



Determine Smaller 
of BMAX or 3624 
and Save in BMAX 



D4 



Calculate BMAX 
for Phases 2 and 3 
Init Reg 14 to Retn 
to CFB3MAX 



MERGE '' , w . n N >, v FIXED/ADDROUT SORT 
■^Branch Via Reg 14 > 



CVB3MAX 



VARIABLE SORT 
F3 



CFB3MAX 



Calculate B3MAX 
for Variable- 
Length Records 



Calculate B3MAX 
for Fixed/Addrout 
and Save in B3MAX 




Fetch Overlay 7 



s' N \ ANY 

'Branch Via ^ MER G E 



\ Reg 14 



Determine Smaller 
of L3MAX and 
3624 and Save in 
L3MAX 



Initialize Reg 14 
with Address of 
FETCH 7 



VARIABLE SORT 



K2 



Calculate Phase 3 
LMAX and Save in 
L3MAX, Init Reg 
A with VBI 



VARBI 



Calculate Phase 1 
BMAX for Variable 
Blocking 



RAFBI 



Calculate Phase 1 
BMAX for Addrout 



'Fetch Overlay 10; 



AR 
DSORT010 



Chart AH, Compute Maximum Allowable Input and Output Record and Block Lengths, DSORT006 
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From Overlay 6 



) 



Initialize for Device 
Type (Disk or Tape) 



A5 



Check Valid Place- 
ment of Control 
Fields for 
Variable-Length 
Records 



Check Labels or 
Assume Standard 
and NOTPMK 
Option 



Initialize Routine 
to Compare L4, 
not LI 



Check Tape Open/ 
Close Options 
Specified or 
Assume Rewind 




Chart AJ. Post Edit, DSORT007 



Charts 209 




NO 


/calcareax. 

^V Specified S 






YES 




Fl 




Turn On 


:alcsw2 


ST 


EP 


Gl 



Ok 

NO OUTPT 

HI 




Calculate PH1BI 



Calculate PH1B2 



~5 



AL-. 
AL-. 



-r> ( 


■P 


Calculate MAXBL, 






PH2 and PH3 




STEP3 


B4 


<?>< 


? 


Calculate Maximumi 
Records per Block 


1 


T 








STEP3A 


C4 



RECBLK^ 



Calculate Maximum 

Bytes per 

Track 



Calculate 
Maximum 
Work Area 



CALSW2 





\l RECBLK yS 

RECBLK> 
D4 




Recalculate 
RECBLK 








STEP4 


E4 




Calculate Sort 
Block Size 
(SBSIZE) 


COMBPT 


F4 




Compute 
Blocks per 
Track (BPT) 


C 


KBPT 


G4 




REDUCE H5 



Reduce RECBLK 
by 1 



J4 USEORIG 




Save Original 
Calculations 



Chart AK„ Compute Constants, DSORT008 
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£ 



Calculate: Final G, 
SBSIZE, NOBLKG 
and NOPASS 




Turn on CALCSW1 





Save All Constants 
Calculated 



Turn off CALRPT 
and PUTCON 
Switches 







Turn off CALRPT 
and PUTCONSW 



AK-G1,STEP 

AN-F3,PUTC02K 

AN-F5 



V 



Calculate Overflow 
Area Size 



Initialize to 
Recalculate with 
Lower OM 



Calculate PHI or 
4 Input BPTandPH3 
or 4 Output BPT 
when I/O Disk 





Reduce GA1 by 
SBSIZE 



Decrease OM and 
Recalculate All 
Values with Lower 
Phase 2 and 3 Sizes 



Get Minimum Size 
for Phase 2 and 3 



Decrease OM by 1 
to Recalculate 



Turn on CALPRT 
and PUTCONSW 
Calculate Records 
Per Track (RPT) 




Save New RPT and 
AMAX 




Chart AL, Compute Constants ( Fixed- Length Records) , DSORT003 



Charts 211 




CI 



Turn on: 

CALCSWIVand 
CALSW2V 
Switches 



Calculate MAXBL1 



Calculate Variable- 
Length Constant: 
(8/LMIN)+2 



Calculate: 
MAXBL2, MAXBL3, 
and SBSIZE 



COMBPTV G1 



Calculate New BPT 



Decrease SBSIZE 

by LI 




Calculate Maximum 

Bytes/Track 

(MXBYPT) 



^ 





Save Original 
Constants 



Reduce OM to 
Recalculate All 
Constants 



Calculate: GA1, 
GAREA, NOBLKG 
G Max, B, G avg 



Calculate Work 
Area (AMAX) 



Calculate and Save 
Number of Passes 
(NOPASS) 




Save New AMAX 



© 



(Fetch Overlay 009) 



(Fetch Overlay 010) 



DSORT009 



Chart AM. Compute Constants (Variable- Length Records), DSORT008 
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Turn on 
CALSWR2 Switch 



Calculate Length 
of Control Fields 
and PH1B1 



Calculate BL2 and 
MAXBL2 



Calculate BL3, 
MAXBL3 and 
RECBLK 



Calculate BPT and 
SBSIZE 




Turn off CKRPT 
and PUTCNSWR 
Switches 



Turn on CKRPT 
and PUTCNSWR 
Switches 



Turn off CALSWR2 
Switch 



Calculate: GA1, 
GA2 / GAREA and 
GAREA1 




Save AMAX and 
Old RPT 



Calculate RPT and 
AMAX 



Decrease RECBLK 
by 1 




Save Orignial 
Constants 



Decrease RECBLK 
by 1 



Turn off CKRPT 
and PUTCNSWR 
Switches 





Initialize to 
Recalculate with 
a Lower OM 




Decrease OM and 
Recalculate All 
Values 



Nullify Previous 
Calculations 



Save All Computed 
Constants 



6 



\G3y 

OUTPUT 



Get Minimum 
Phase 2 Size 




Chart AN, Compute Constants (ADDROUT), DSORT008 



Charts 213 




£ 



Calculate 
IRPT, NRTHWK, 
IBC, and BO 



Initialize IBIC 
with Input Block 
Size and IRL with 
Input Record Length 






Initialize to 
Estimate Total 
Number of 
Tracks Available 
for Sort 


REP1 


B3 




Build DEVTAB 
Table of Device 
Numbers from 
the PUBJable 


REPB 


C3 




Accumulate Tracks 
per Drive for 
Work Area, and 
Input and Output 


Bl 18 


D3 




Determine Number 
of Strings Out 
of Phase 1 






E3 



Initialize Registers 
6& 10, LOWTM, 
SPDFAC, and 
FIOCS 



Retrieve Trial 
Order of Merge 




Calculate Seek 
Time for Each 
Pass (BAL to 
TABLEF -Chart AQ) 



Compute Number 
of Tracks Needed 
for Output 





B135 


| A4 




Compute WRT 


B136 


B4 




Determine Limits for 
Disk Work Area 


B170 


C4 




Calc Phase 2 
Seek Time 
(BAL to SEEKTM 
-Chart AQ) 


E181 


D4 




Calc Phase 3 
Seek Time 
(BAL to TABLEF 
-Chart AQ) 


S188 


E4 




Calc Phase 1 
Seek (BAL to 
SEEKTM - Chart 
AQ), Process 
4 Format Time 


E200 


F4 



NO 


/'CALCAREA N. 
\ Option yf 






YES 






B5 




Place Best Work 




Area Size in 




TRACK 




1 *■ 

FETC10 


C5 



.Fetch Overlay 10/ 




Save Pointer for 
this OM in 
SAVROM and 
Store Time 
in Save Table 




Determine Maximum 
File Size 




Print Error Message 



Move Appropriate 
Save Table 
Contents 



Chart AV. Select Order of Merge, DSORT009 
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T/ 


[From Main Prograrrv 
\Overlay 9 J 


VBLEF 


B2 


9 


Initialize: Locate 
Table 


Y 






AGAIN 


C2 




Initialize for Tables 

1 , 2 and 3 


C 


OMP 


D2 




Increase LOC by 
[(OMx2)-4J 


Fl 


ND 


E2 





Set: ANSI, ANS2 
and ANS3 Equal 
to One 



Interpolate Between 
Table Values for 
CPST Equal to 1 
and 2 



Search Table 
According to Value 
of CPST 



CALC 



Calculate Ax + Bx 
for 2 Sets of Table 
Values and 
Interpolate 



/From Main Prograrm 
^Overlay 9 J 




Calculate SKT 
(Seek Time) for 
Phases 1 and 2 



(Return to Main "\ 
Program Overlay 9/ 



Chart AQ. Select Order of Merge (Cont'd), DSORT009 



Charts 
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AE-G4,FETCHEND 

AG-H4,GETEOJ 

AH-H5,FETCHEND 

AJ-J4 

AL-H3,FETCH9 

AP-C5,FETC10 




EOJCALC 



C3 



Initialize to 
Print CALCAREA 
Message for 
End of Assign 
Phase (E80I) 



Turn on EOJCSW 
Switch 




Flip Pointers to 
Speed Sort and 
Save a Merge 
Pass 



Update Checkpoint 
Record Number 




WTCKMG 


MERGE 
H4 


TSREST 
YES 




\ Write / 
\ Checkpoint / 
\ for Merge / 






J4 


J5 


>/Print OptionN. 


Turn on Switch 
F4SW and Initial ize 
to Print Message 
(E91) 


v. Specified ^r 




Tno 


JL 


1 * 
kc 


s 1 

' 2 y 


dD 



Chart AR. Print Option and Fetch Next Phase, DSORT010 
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& 



MSG91 



Turn on Switch 
F2SW and Initialize 
to Print Message 
(E91> 



Load Reg 9 with 
Address of 
Message E91 



Chart AS. Print Option and Fetch Next Phase (Cont'd), DSORT010 



Charts 217 



BV022 i f E2 




Multi-Volume 
Routine 



Input Data Routine 



MOPS1 



Output Data 
Routine 





(From Assignment j 
Phase J 



Read and Initialize ) 

Multi-Volume 

Routine 



IBV021 



Read Checkpoint 
and Format Disk 



For ADDROUT Run 



See Narratives on 
Charts BF, BG, 
and BM 




Initialization 
Routine 



Multi-Volume 
Routine 



P1INBG 



End of Phase 
Routine 



C 




J 



4-WAY FIXED LENGTH 
n r T - , 3-WAY VARIABLE LENGTH 
Ib2 J 7 -WAY FIXED LENGTH 
\/ 6-WAY VARIABLE LENGTH 







BK 


NO 


Input Data Routine 


i 


i 




P 


LEVI 


H5 






BF 




Internal Sort 




M< 


DPS1 


J5 






BG 




Output Data 
Routine 




NC 


£ End of 


K5 
Volume > 



Chart 2. Internal Sort (Phase 1) 
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w 



FETCH1 



d 



From Assignment 
Phase 



5 



Initialize Base 
Registers 



Save Disk Address 




Increment 
Track Number 



Save New Check- 
point Address 



Gl 



Format Disk for 
Phase 1 Mainline 



Increment 
Cylinder 
Number 



Get User Routine 
Address 



NT APE 



Set Tape Input 
Switch, Initialize 
EOF Addr in DTF 
and Save Volume 
Table 






</ User Exit 1 1\ 
>y^ Specified s^ 


YES 










NO 






E3 




Turn Off 


Bit in DTF 






EOF IN IT 


* 

F3 






Put EOF Return 






Address and File 




^\ 


Name in DTF 




V 








1 


CHKPT 


G3 






Format Disk for 






Label Routine 






FET102 


H3 





/ Fetch Phase O 
( Overlay 2 
\ DSORT102 





Set Non-Standard 
Bit and Switch 



Set User Exit Bit 



Set Unlabeled Bit 
and Switch 



INIT32 



Initialize Byte 
32 of Tape DTF 
and Set Rewind 
Options 



Chart BA. Initialization for Multi-Volume (Exit 11 Linkage), DSORT101 



Charts 219 



& 



rom Phase 1 Ovei 
lay 1 DSORT101 



5 




Initialize Work 
Area Table 



Build Disk Address 




Initialize CCB 



Build CCW Chain 
for 1 Track 




O 



Initialize Limits 




Chart BB. Format Routine, DSORT102 
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Compute New 
Program Size and 
Initialize Start of 
Address Table 



Compute Address 
Table Size, Start of 
Input Area, Start 
of Output Area 




OUTIZ 



Turn On Exit 
Switch 



Initialize Output \ 
Routine for 
Fixed or 
Variable 



IZTAPE 



A4 



Move Tape Input 
Rtn to Location 
Starting at P1INBG 
and Initialize for 
Exit 13 



Relocate and 
Initialize Nesessary) 
Conversion Rtn 



Chart BC« Initialization Routine for Disk or Tape Input, DSORT103 



Charts 
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Initialize and Build 
Read CCW'S 



Construct Next 
Cylinder Address 




DIHERE J1 



Build Read-Count 
CCW'S 





After Any 
Write 



Change CCW Op 
Code to Read 



-T5T 



\Write Mainline 
toead Multi-Vol./ 
\Write Multi- 
Wol. Read 
\Mainl 



After Read 
Multi-Volume 



BC-J3, OUTIZ 

BE-D3 

BM-G3, GETEX 

BM-J2, LSTFLSW 

BM-H4, MNLLINK 

BN-J4 

BN-K1 

BN-H2 

BN-J3, LSTFILSW 



After Read 
Phase 1 Mainline 




Input Finish 
Routine-Initialize 
Final G for Sorting 



Variable-Length 
Address Rtn 
Exit 12 




Save End of Input 
Area and Update 
Record Count 



BF | PI LEVI 
B2y 



Chart BD. Input Routine for Disk or Tape Input, DSORT103 
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Initialize Input 
Routine for Tape 



Print Bypassed 
Record Number 



1 Set Switches: 
J 1. Exit 13 
I 2. Fixed-Length 
I 3. Variable-block 
I 4. Short Block Ck 
I 




Increment 
Block Count 



Bypass this 
Record 




IOCS Allows 
Operator 
Intervention 
at this Point if 
Bypass Option 
Not Specified 



Increment Bypassed 
Record Count 
EXIT 13 




Chart BE. Tape Input Routine, DSORT103 



Charts 223 



- - 1 


*BL 


-HI, 


INEXIT 


1 


*BD 


-K5 




* ) 


BL 


-H3, 


ONEXIT 


I*, 


BD 


-J4, 


ONEXIT 


Y 
i 

r— - 








-J 









I Dotted Connector 
for Addrout Run 



BG-C2, IRVMC3 
BG-J2,IBVVLR 



Initialize Level 1 
Registers and Sort 
G into Doublets 



Internal SORT 
Routine Is Same foi 
Addrout Run. Dotted 
Connectors Are for 
Addrout Run 



Initialize Level 2 
Registers and 
Compare Chain 



Compare Control 
Fields 



STORM1 or 
STORM2 

Selected as Result 
of CMPCHM 




STORM1 
STORM2 



Save Winning 
Record Address In 
Address Table 




Initialize for New 
Strings 




Move Remaining 
String to Output 
Address Table 



Initialize Last 
Pass Branches 



Reverse Input/ 
Output Address 
Tables 



© 



Chart BF. Internal Sort, DSORT103 
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B2 



Save Level 2 
Registers-Initialize 
Output Rtn Regs - 
Move Record to 
Output Area 



Create Next 
Disk Address 





I Output Routine i 
J the Same for 
Addrout Run 




Padding Routine 



YES 


Save Starting Disk 
Address of Next 
String and Update 
Block Count 












2 1 


3VND4 J3 




IBV 


YES 


Initialize "D" 
Shift Table 














Chart BG* Output Routine, DSORT103 



Charts 
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[BG FETCH 



<£ 



: rom Phase 1 OveA 
[ay 3 DSORTI04 J 



Relocate Overlay 5 



Compress Last Set 
of Phase 1 Output 



Update Checkpoint 
Record and 
Compute Constants 



r 
i 



i 

kB2 ^ 

INTPH2 



Print End of 
Phase 1 
Messages 



Fetch Phase 2 



^ 



( To Phase 2 "\ ( To Phase 2 "N 

y Fixed-Length y \ ^ Variable- Length / 



I 

>~CTn 
kB2 ; 



Phase 2 Type 
Determined by User 
Specifications 



Chart BH- End-of-Phase Routine, DSORT105 
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Initialize Level 1 
Internal Sort 



Initialize CompareX 
Chain 



Compute Location 
of Areas 



Initialize Output 
Routine 



Chart BJ. Initialization for ADDROUT Run, DSORT104 



Charts 227 



O (£ 



Initialize Addrout 
Routine 




Read Block 
from Disk 



\Read Count of t 
Record 




Locate Next Record 





Build Next Record 
Address 



Restore Registers 
and Turn on EOF 
Switch 




Initialize for 
Addrout Sort 



Build Tag for 
One Record 



Move Control Field 
from Record to 
RAF Area 



Store Record Length 
and Increment 
Block Size 




Increment Record 
Address and 
Compute Next 
Address for Tag 




Chart BK. ADDROUT Run Input Routine, DSORT10U 
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AFTER ANY 
WRITE 



Change CCW Op 
Code to Read 



Compute Final G 
and Initialize Final 
G for Sorting 



BK-F4, LBLCHK 



^ 




^ 



BJ-D4, OUTIZ 

BK-E4 

BK-D1 

BM-G3, GETEX 

BM-J2, LSTFLSW 

BM-H4, MNLLINK 

B3 



\ Write Mainline, 
\ReadMulti- / 
\ Volume, Write / 
\Multi -Volume, 
\Read Mair 
\Line 



7 



AFTER READ 
MAINLINE 




HI 



Save End of Input 
Area Address and 
Update Record 
Count 



Build Record 
Address and Save 
Record Count 



AFTER READ 
MULTI-VOLUME 



Chart BL, ADDROUT Run Input Routine (Cont'd) , DSORT104 



Charts 
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DINMVA 



Dotted Connector 
for Addrout 
Type Run 







Gl 




ENDINP \ 


r G2 


Set Last File 
Flag and Last 
File Switch 




YES /Last 


nput \. 




\ l-ile 










NO 








DCLOSE 


H2 




Place Log Unit 
Address in Register 



i BL ! 
DINMVA LBLCHK 



I Dotted Connector 
I for ADDROUT Run 





NO 




K2 


Initialize Next 


File Name to 


Disk DTF 



Chart BM. Multi-Volume Routine, DSORT103 
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Put Block Count i 
DTF 




Set Rewind Bits i 
DTF and Save 
Volume Number 



Shift Volume Table 



Initialize Byte 32 
in DTF for Close 




Place Log Unit 
Address in Register 




l | 

I Dotted Connector | 



r—^--i I for Addrout Rui 

[bl] I 

^ | 

LBLCHK 



Set Last File 
Indicator and 
Last File Switch 



Reset Byte 32 i 
DTF for Open 



Chart BN. Multi-Volume Routine (Cont'd), DSORT103 



Charts 
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DSORT201 - 4-WAY MERGE 
DSORT202 - 7-WAY MERGE 



04 I DSORT30I (4-WAY) 
* 2 / DSORT302 (7-WAY) 



Merge-Merge 
Routine 



Fill Input Areas 



Calculate Next 
Interleaved 
Input/Output 
Address 




Merge Records 




Q_ 



Output X ^YESVy^ \ Output to 
Area / \ Disk 

Full 



NO 



Move Record to 
Output Area 




Chart 03- External Sort or Merge, Fixed-Length Records (Phase 2), DSORT201 or DSORT202 



232 IBM S/360 DOS Sort/Merge 



FETCH 

I 



Initialize 
Registers and 
Constants 




Increment Number 
of Passes by One 



Equal 





<^ Rout 

\. Reqi 


ine ^> 
jired / 

NO 

E2 






Initialize Compare 
Loop Branches for 
No Equal Routine 




c 


OMPIT 






F2 






Initialize Compare 
Loops with Control 
Field 
Information 








G2 






Initialize Mainline 
with Input 
Logical Record 
Length 




D 


VAGN 


H2 






Calculate 
Interleave Factors 
for Disk 
Address Routine 








J2 






Initialize 

Merge -Merge 

and Pass-Pass 

Routines 

for Phase 2 OM 





Calculate Constants 
for Input and 
Output Routines 




Extract Work Area 
and Initialize 
Re I oca tor 



Initialize Output 
Count Field and 
Block Count 



RELOCA 



FA 



Include Equal 
Routine and Reloc- 
ate Move Routine 
(If Required) 



Initialize I/O 
Channel Programs 



Initialize to 
Write Pass- 
Pass Routine 



<- BPT = 


i y 

YES 

H3 




Initialize to 
Format Disk 
Output Area 












J3 




Chart CA. Phase 2 Initialization, Fixed-Length Records 



Charts 
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Initialize Mainline 
with New Input 
Interleave Factors 



Initialize Mainline 
with New Output 
Interleave Factors 



* CA-E4,NOWCKD 
CM-H3,MMPPI 



Turn Off 
End-of-Merge 
Switch 'MMPP1' 




Shift Disk 
Address Output 
Table for Next 
Output Sequence 



Chart CB. Merge-Merge Routine, Fixed-Length Records 
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1 B2 ILEAVE-IOJ 



Turn Off End-of- 
Pass Switch 




Update Checkpoint 
Record 




CPOADR-8 


F2 




Calculate Initial 
I/O Disk Address 
for Current Pass 


S 


HTPTR 


G2 




Reverse I/O Areas 
for Next Pass 


N 


EWITL 


H2 




Calculate 
Interleave Factors 
for Current Pass 


N 


EXTPASS 


J2 




Determine and 
Print Pass Number 



Calculate Number 
of Output 
Sequences in 
Upcoming Pass 



C3 



Calculate 
Interleave Factors 
for Last Merge of 
Pass 



Initialize Merge- 
Merge Routine 
with OM to be 
used in Last 
Merge 



Calculate Output 
Interleave Factors 
when S ^ M 2 



ENDPAS 




Chart CC, Pass-Pass Routine, Fixed-Length Records 



Charts 
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CB-J4 


CH-J3 


CE-J4 


CJ-H3 


CF-J4 


CK-H2 


CG-J4 


CK-H4 



NOTE: USTOPA, FILLA, and GETA labels apply to 1-way 
merge. For 2 -way to 7 -way merges, label suffixes 
are B to G, respectively. Similarly, LMI and 
BYPAS 1+4 become LM2 to LM6 and BYPAS2+4 to 
BYPAS7+4, respectively. 



*CE-J4 CH-J3 

CF-J4 CJ-H3 

CG-J4 CK-H2 

CK-H4 






OM 


SEQ A 


SEQ B 


SEQ C 


SEQ D 


SEQ E, 

F, AND G 




7 


CE-H2,COMPGA 


CE-G2,COMPGB 


CE-F2, COMPGC 


CE-E2,COMPGD 




6 


CF-G2,COMPFA 


CF-F2,COMPFB 


CF-E2, COMPFC 


CF-D2 / COMPFD 


CE-B2\ 
COMPGF 




5 


CG-F2,COMPEA 


CG-E2,COMPEB 


CG-D2, COMPEC 


CG-B2,COMPED 




4 


CH-E2,COMPDA 


CH-D2,COMPDB 


CH-B2, COMPDC 










3 


CJ-D2.COMPCA 


CJ-B2,COMPCB 


• 










2 


CK-B2,COMPBA 














| VIA REG 


SAVE A 


SAVE B 


SAVE C 


SAVE D 






SAVEC and SAVED 
not used in 4-way 
merge program 
(DSORT201) 



Store Current 
Interleaved Disk 
Address 



BRANCH TO SAME LOCATIONS AS SHOWN 
IN EXITS FROM BLOCK D2 ABOVE, PLUS: 



SEQ A 


SEQB 


SEQC 


SEQ D 


SEQe 1 


CK-D4. PUTA 


CK-B2. COMPBA 


CJ-B2, COMPCB 


CH-B2, COMPDC 




USTOPB 


USJOPC 
(THESE ONI 


USTOPD 
Y AT START OF ME 


USTOPE 
RGE) 


USTOPF 



Chart CD. Input Routine, Fixed-Length Records 
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*CD-D2, FILLE, FILLF, FILLG 
CD-J3, BYPAS5+4, BYPAS6+4, BYPAS7+4 
CG-H4,NXTER 



*CD-D2, FILLD 
CD-J3, BYPAS4+4 
CD-H3, NXTDR 



*CD-D2, FILLC 
CD-J3, BYPAS3+4 
CJ-G3, NXTCR 



*CD-D2, FILLB 
CD-J3, BYPAS2+4 
CK-G2, NXTBR 



'CD-D2, FILLA 
CD-J3, BYPAS1+4 
CK-G4, NXTAR 




NOTE : Compare decisions are 
based on one control 
field (no equal routine) 
and ascending sequence. 



CH COMPDC 
B2 ' 



LOW OR 
D DEPLETED 
F2 





Chart CE. Sequence G Compare Loop, Fixed-Length Records 



Charts 
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*CE-B2, COMPGF 
CE-C2 



CD-D2, FILLD 
CD-J3, BYPAS4+4 
CH-H3, NXTDR 



Sequence F 
Depleted 



Compare F:E 



LOW OR 
E DEPLETED 
D2 



NOTE: Compare decisions are based on one 
control field (no equal routine) and 
ascending sequence. 



CD-D2, FILLC 
CD-J3, BYPAS3+4 
CJ-G3, NXTCR 



Compare F:D 



LOW OR 
D DEPLETED 
E2 



CD-D2, FILLB 
CD-J3, BYPAS2+4 
CK-G2, NXTBR 



Compare F:C 



LOW OR 
C DEPLETED 
F2 



CD-D2, FILLA 
CD-J3, BYPAS1+4 
CK-G4, NXTAR 



Compare F:E 



LOW OR 
B DEPLETED 
G2 



Compare F;A 



HI/EQ 



LOW OR 
| A DEPLETED 
H2 



Prepare ro Move 
Sequence F 
Record to 
Output Area 




Chart CF. Sequence F Compare Loop, Fixed-Length Records 
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CD-D2, FILLD CF-B2, COMPFE 

CD-J3, BYPAS4-4 CF-C2 

CE-D2, COMPGE CH-H3, NXTDR 
B2 



* CD-D2, FILLC 
CD-J3, BYPAS3- 
CJ-G3, NXTCR 



* CD-D2, FILLB 
CD-.J3, BYPAS2'4 
CK-G2, NXTBR 



* CD-D2, FILLA 
CD-J3, BYPAS1 -i 
CK-G4, NXTAR 




NOTE : Compare decisions are based on one 
control field (no equal routine) and 
ascending sequence. 



Prepare to Move 
Sequence E Record 
to Output Area 




Chart CG, Sequence E Compare Loop, Fixed-Length Records 



Charts 
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CD-D2, FILLB 
CD-J3, BYPAS2+4 
CK-G2, NXTBR 



*CD-D2, FILLA 
CD-J3, BYPAS1+4 
CK-G4, NXTAR 



*CD-D2, FILLC 
CD-J3, BYPAS3+4, BYPAS4+4 
CE-E2, COMPGD 
CF-D2, COMPFD CG-C2 

CG-B2, COMPED CJ-J3, NXTCR 




NOTE : Compare decisions are based on one 
control field (no equal routine) and 
ascending sequence. 



Prepare to Move 
Sequence D Record 
to Output Area 




CE-E2, COMPGD 
CF-D2, COMPFD 
CG-B2, COMPED 



Chart CH* Sequence D Compare Loop, Fixed- Length Records 
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k CD-D2, FILLA 
CD-J3, BYPAS1+4| 
CK-G4, NXTAR 




CD-D2, FILLB 
CD-J3, BYPAS2-4 
CE-F2, COMPGC 
CF-E2, COMPFC 



Prepare to Move 
Sequence C Record 
to Output Area 



CG-D2, COMPEC 
CH-B2, COMPDC 
CH-C2 
CK-G2, NXTBR 



NOTE: Compare decisions are based on one 
control field (no equal routine) and 
ascending sequence. 




CE-F2, COMPGC 
CF-E2, COMPFC 
CG-D2, COMPEC 
CH-B2, COMPDC 



Chart CJ. Sequence C Compare Loop, Fixed- Length Records 



Charts 
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CD-D2, FIUA 
CD-J3, BYPAS1+4 
CE-G2, COMPGB 
CF-F2, COMPFB 




CG-E2, COMPEB 
CH-D2, COMPDB 
CJ-B2, COMPCB 
CJ-C2 



NOTE: Compare decisions are 
based on one control 
field (no equal routine) 
and ascending sequence. 



V 



CD-J3, BYPAS1+4 
CE-H2, COMPGA 
CF-G2, COMPFA 



CG-F2, COMPEA 
CH-E2, COMPDA 
CJ-D2, COMPCA 



Prepare to Move 
Sequence A 
Record to 
Output Area 



OUTFUL 

I 




CE-G2, COMPGB 
CF-F2, COMPFB 
CG-E2, COMPEB 
CH-D2, COMPDB 
CJ-B2, COMPCB 




QQO 



CE-H2, COMPGA 
CF-G2, COMPFA 
CG-F2, COMPEA 
CH-E2, COMPDA 
CJ-D2, COMPCA 



Chart CK. Sequence B Compare Loop, Fixed- Length Records 
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CE-J2, PUTG 
CF-H2, PUTF 
CG-G2, PUTE 
CH-F2, PUTD 
CJ-E2, PUTC 
CK-D2, PUTB 
CK-D4, PUTA 




C3 



Insert End-of- 
Sequence Indicator 
and Turn on Merge- 
Merge Switch 



Move Winning 
Record to Output 



Initialize to 
Write a Block 
of Records 



Updara Output 
Area for 
Next Record 



\ Write a Block 
. of Records 



CE-H4, NXTGR 
CF-H4, NXTFR 
CG-H4, NXTER 
CH-H3, NXTDR 
CJ-G3, NXTCR 
CK-G2, NXTBR 
CK-G4, NXTAR 




Chart CL. Output Routine, Fixed- Length Records 
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CD-H4JRMDR 
CD-H5JRMDR1 
CL-H3,ORDMR 
CL-H4,ORMDRl 

C2 



Calculate Next 
Valid Record 
Number 



Calculate Next 
Valid Track 
Number 




Store New 
Input or Output 
Interleave 
Address 



Calculate Amount 
Exceeded 




Calculate New 
Address Within 
Next Extent 



Store New 
Interleaved Output 
Address 



Determine 
Logical 
Unit Address 
for New Extent 




Chart CM, Calculate Interleave Disk Address, Fixed-Length Records 
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Merge-Merge 
Routine 



Fill Input Areas 



CY 



Calculate Next 
Interleaved Input/ 
Output Address 




DSORT203-3- WAY MERGE 
DSORT204-6-WAY MERGE 



04"! DSORT303 (3-WAY) 
B2/ DSORT304 (6-WAY) 



Pass-Pass Routine 



Merge Records 




Move Record to 
Output Area 




Chart 03. External Sort or Merge, Variable- Length Records (Phase 2), DSORT203 or DSORT204 
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FETCH 

vF2J 



INTPH2 



Initialize Registers 
and Constants 



RCHKPT 





CPIOAS 



Increment Number 
of Passes by One 



Initialize Compare 
Loop Branches for 
No Equal Routine 



Calculate Constants 
for Input and 
Output Routines 




Extract Work Area 
and Initialize 
Relocator 



Initialize to Format 
Disk Output Area 



Adjust Equal 
Routine if Required 



Initialize Compare 
Loops with Control 
Field Data 



\ Write Pass-Pass/ 

Routine c 

Disk 



Initialize to Write 
Pass-Pass Routine 



Calculate Inter- 
leave Factors for 
Disk Address 
Routine 




Initialize Output 
Count Field and 
Block Count 



Initialize Merge- 
Merge and Pass- 
Pass Routines for 
Phase 2 OM 



Initialize I/O 
Channel Programs 



Chart Ctf. Phase 2 Initialization, Variable- Length Records 
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1 



*CN-H4, NOWCKD 
CY-H4, MMPP1 



Turn-Off End-of- 
Merge Switch 
■MMPP1' 



Initialize 
Mainline with 
New Input 
Interleave Factors, 



Initialize for OM 
Minus One 



Initialize 
Mainline with 
New Output 
Interleave Factors, 




yRead Pass -Pass , 

\Routine from 

Disk 



\ Write Pass-Pass/ 

Routine on 

Disk 



J4 



Shift Disk Address 
Output Table for 
Next Output 
Sequence 



USTOPA 



Chart CP. Merge-Merge Routine, Variable- Length Records 



Charts 
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J B2 I LEAVE-10 J 



Turn off End- of - 
Phase Switch 




Determine Input/ 
Output Sequence 
Block Count 



CPOADR-12 



Calculate Initial 
I/O Disk Addresses 
for Current Pass 



Reverse I/O Areas 
for Next Pass 



Calculate 
Interleave Factors 
for Current Pass 



Determine and Print 
Pass Number 



Calculate Numbei 
of Output Sequences 
n Upcoming Pass 



C3 



Calculate 
Interleave Factors 
for Last Merge 
of Pass 



D3 



Initialize Merge- 
Merge Routine With 
OM to be Used in 
Last Merge 



Calculate Output 
Interleave Factors 
for When S<M 2 



NOT LAS 




Chart CQ+ Pass-Pass Routine, Variable- Length Records 
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* CP-J4, SFOADR CU-G4, NXTDR 



CS-G4, NXTFR 
CT-G4, NXTER 



* CS-J4 CV-J3 
CT-J4 CW-J2 
CU-J4 CW-J4 
CX-F2 (SPLIT 
RECORDS ONLY) 




CV-G3, NXTCR 
CW-G2, NXTBR 
CW-G4, NXTAR 



NOTE : USTOPA, FILLA, and GETA labels apply to 1-way 
merge. For 2 -way to 6-way merges, label suffixes 
are B to F, respectively. Similarly, LM1 and BYPAS1 f4 
become LM2 to LM5 and BYPAS2+4 to BYPAS6+4, 
respectively. 





OM 


SEQ A 


SEQ B 


SEQ C 


SEQ D, 
E. AND F 


1 * J 


6 


CS-G2, COMPFA 


CS-F2, COMPFB 


CS-E2, COMPFC 




5 


CT-F2, COMPEA 


CT-E2, COMPEB 


CT-D2, COMPEC 


CS-B2, COMPPe" 


BRANCH 


4 


CU-E2, COMPDA 


CU-D2, COMPDB 


CU-B2, COMPDC 







3 


CV-D2, COMPCA 


CV-B2, COMPCB 












2 


CW-B2, COMPBA 











I VIA REG. 


SAVEA 


SAVEB 


SAVEC 





SAVEB and SAVEC 
not used in 3-way 
merge program 
(DSORT203). 



This Fu 


nction 


not | 


Applic 


able tc 


Seq | 


F (in 6 


-Way) 


nor | 


to Seq C (in 


3- | 


Way) 








" CY-F3, BSTR6 
CY-H4, MMPP1 



Initialize Disk 
Address Routine 
with Interlea 
Factors 



Initialize Disk 
Address Routine 
with Reduced 
Interleave Factors/ 



Store Current 
Interleaved 
Disk Address 



BRANCH TO SAME LOCATIONS AS SHOWN 
IN EXITS FROM BLOCK D2 ABOVE, PLUS: 



SEQ. A 



CW-D4, PUTA 



USTOPB 



SEQ. B 



SEQ. C 



CW-B2, COMPBA CV-B2, COMPCB 



seq, D 



USTOPC USTOPD USTOPE 

(THESE ONLY AT START OF MERGE) 



SEQ. E 



Chart CR„ Input Routine, Variable- Length Records 



Charts 
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CR-D2, FILLE/FILLF 
CR-J3, BYPAS5+4/BYPAS644 
CT-J4 
CU-J4 



*CR-D2, FILLD 
CR-J3, BYPAS4+4 



CR-D2, FILLC 
CR-J3, BYPAS3+4 
CV-J3 



*CR-D2, FILLB 
CR-J3, BYPAS2+4 I 
CW-J2 



*CR-D2, FILLA 
CR-J3, BYPAS1+4 
CW-J4 




NOTE: Compare decisions are based on one 
control field (no equal routine) and 
ascending sequence. 



Prepare to Move 
Sequence F Record 
to Output Area 




Chart CS. Sequence F Compare Loop, Variable- Length Records 
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* CS-B2, COMPFE 
CS-C2 



COMPED 



CR-D2, FILLC 
CR-J3, BYPAS3+4 
CV-J3 



* CR-D2, FILLB 
CR-J3, BYPAS2+4 
CW-J2 



* CR-D2, FILLA 
CR-J3, BYPAS1+4 
CW-J4 




NOTE: Compare decisions are 
based on one control 
field (no equal routine) 
and ascending sequence. 



OUTFUL 




Chart CT. Sequence E Compare Loop, Variable- Length Records 



Charts 
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CR-D2, FILLC 

CR-J3, BYPAS3+4/BYPAS4+4 

CS-D2, COMPFD CT-C2 

CT-B2, COMPED CV-J3 



CR-D2, FILLB 
CR-J3, BYPAS2+4 
CW-J2 



CR-D2, FILLA 
CR-J3, BYPAS1+4 
CW-J4 




NOTE: Compare decisions are based on one 
control field (no equal routine) and 
ascending sequence. 



I A DEPLETED 
F2 



Prepare to Move 
Sequence D Record 
to Output Area 




COMPFE 



Chart CU. Sequence D Compare Loop, Variable- Length Records 
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*CR-D2, FILLA 
CR-J3, BYPAS1+4 
CW-J4 




CR-D2, FILLB CU-B2, COMPDC 

CR-J3, BYPAS2+4 CU-C2 

CS-E2, COMPFC CW-J2 
CT-D2, COMPEC 



NOTE: Compare decisions are based on one 
control field (no equal routine) and 
ascending sequence. 



I CW ICOMPBA 



Prepare to Move 
Sequence C Record 
to Output Area 




*CS-E2, COMPFC 
CT-D2, COMPEC 
CU-B2, COMPDC 



Chart CV. Sequence C Compare Loop, Variable- Length Records 



Charts 
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*CR-D2, FILLA 
CR-J3, BYPAS1+4 
CS-F2, COMPFB 
CT-E2, COMPEB 



CU-D2, COMPDB 
CV-B2, COMPCB 
CV-C2 



NOTE : Compare decisions are 
based on one control 
field (no equal routine) 
and ascending sequence. 



CR-J3, BYPAS1+4 
CS-G2, COMPFA 
CT-F2, COMPEA 
CU-E2, COMPDA 
CV-D2, COMPCA 




* CS-F2, COMPFB 
CT-E2, COMPEB 
CU-D1, COMPDB 
CV-B2, COMPCB 



*CS-G2, COMPFA 
CT-F2, COMPEA 
CU-E2, COMPDA 
CV-D2, COMPCA 



Chart CW„ Sequence B Compare Loop, variable- Length Records 
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* CS-J5, SPLITF 
CT-J5, SPLITE 
CU-J5, SPLITD 
CV-J4, SPLITC 
CW-J3, SPLITB 
CW-J5, SPLITA 




CS-H4, NXTFR 
CT-H4, NXTER 
CU-H3, NXTDR 
CV-G3, NXTCR 
CW-G2, NXTBR 
CW-G4, NXTAR 

CR-E2, GETA ^ Only in 
Through GETF, I case of 
Depending [ split 

on Sequence J records. 



Chart CX* Output Routine, Variable- Length Records 



Charts 
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*CR-H4, IRMDR 
CR-H5, IRMDR1 
CX-G4, ORMDR 
CX-G5, ORMDR1 



Calculate Next 
Valid Record 
Number 



Calculate Next 
Valid Track 
Number 




Store New Input 
or Output Inter- 
leaved Address 



Calculate Amount 
Exceeded 




Calculate New 
Address within 
Next Extent 



Store New 
Interleaved Output 
Address 



Determine Symbol i< 
Unit Address for 
New Extent 





Initialize to Move\ 
Second Part of Spl it\ 
Record to Output / 
Area / 



SPLITM 



Chart CY* Calculate Interleave Disk Address, Variable- Length Records 
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Phase 3 
Initialization 



Fill Input Areas 



Compute Input 

Interleave 

Address 



Merge 
Records 



DJ,DK 



Sequence Check, 
Reconvert, 
Exit 32, and 
Output Routine 




DSORT301 - 4-WAY MERGE 
DSORT302 - 7-WAY MERGE 



Move Record to 
Output Area 




( End of Sort J 




Chart 04, Final Merge, Fixed-Length Records (Phase 3) f DSORT301 or DSORT302 



Charts 257 



rCC-|FETCH3 



f Start of Phase 3 J 




TESTEQ 



Initialize 
Mainline 
Compare Branches 
if Equal Routine 
is Not Required 



ITCOMP 



Initialize All 
Compare Loops 
with Compare DaraN 
Field Length, 
Location and Seq/ 




PRTEOJ 



INTLEAVE 



B3 



Compute \ 

Interleave Factors \ 
for Input Disk / 

Address Routine / 




Calculate Constants 
for Phase 3 Input 
Areas 



Initialize \ 

Phase 3 Output \ 
Channel Program } 
and Output Rtn / 
for Tape Output / 




RTNEQ 



RELOCA FA 



Relocator Routine 



Extract Constants 
from Checkpoint 
Record and 
Relocate 
Routines Starting 
at START! 



OUTDSK 




Initialize for 
Disk Output and 
Label Linkage 
Routine for Disk 
Output 



Initialize Phase 
3 to Execute a 
1, 2, 3, 4, 5, 6, 
or 7-Way 
Merge 




Chart DA, Phase 3 Initialization, Fixed-Length Records 
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OM 


FROM 


7 


DC-J4 


6 


DD-J4 


5 


DE-J4 


4 


DF-J4 


3 


DF-J1 


2 


DG-J3 


1 


DG-J5 




OM 


FROM 


7 


DC-J4 


6 


DD-J4 


5 


DE-J4 


4 


DF-J4 


3 


DG-J1 


2 


DG-J3 


1 


DG-J5 



NOTE : USTOP 1, FILL1, GET1, and IF1 Labels 
Apply for Input Sequence 1 . For 
Sequences 2 Through 7, Label Suffixes 
are 2 Through 7 Respectively. 



OM 


Seq 1 


Seq 2 


Seq 3 


Seq 4 


Seq 5 


Seq 6 


Seq 7 


7 


DC-H2 7:1 


DC-G2 7:2 


DC-F2 7:3 


DC-El 7:4 


DC-D2 7:5 


DC-B2 7:6 


DC-B2 7:6 


6 


DD-G2 6:1 


DD-F2 6:2 


DD-E2 6:3 


DD-D1 6:4 


DD-B2 6:5 






5 


DE-F2 5:1 


DE-E2 5:2 


DE-D2 5:3 


DE-B2 5:4 








4 


DF-E2 4:1 


DF-D2 4:2 


DF-B2 4:3 


DF-B2 4:3 








3 


DG-D1 3:1 


DG-B1 3:2 












2 


DG-D3 2.-1 















Initialize 
to Read in a 
Block of Records 
from Current 
Sequence 



Fl 



Not Applicable 
to Seq G (in 
7-Way) Nor to 
Seq D (in 4-Way) 




OM 


Seq 1 


Seq 2 


Seq 3 


Seq 4 


Seq 5 


Seq 6 


Seq 7 


7 


DC-H2 7:1 


DC-G2 7:2 


DC-F2 7:3 


DC-E2 7:4 


DC-D2 7:5 


DC-B2 7:6 


DC-B2 7:6 


6 


DD-G2 6:1 


DD-F2 6:2 


DD-E2 6:3 


DD-D2 6:4 


DD-B2 6:5 


DD-B2 6:5 




5 


DE-F2 5:1 


DE-E2 5:2 


DE-D2 5:3 


DE-B2 5:4 


DE r B2 5:4 






4 


DF-E2 4:1 


DF-D2 4:2 


DF-B2 4:3 


DF-B2 4:3 








3 


DG-D1 3:1 


DG-B1 3:2 


DG-B1 3:2 










2 


DG-C3 2:1 


DG-C3 2:1 












1 


DG-E5 
PUT1 














Init 
Read-in 


DB-B2 
USTOP2 


DB-B2 
USTOP3 


DB-B2 
USTOP4 


DB-B2 
USTOP5 


DB-B2 
USTOP 6 


DB-B2 
USTOP7 


DC-B2 
COMP76 



Store Current 
Sequence 
Interleave 
Factors 



Chart DB. Input Routine, Fixed- Length Records 



Charts 
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DB-C2, FILL6 
DB-H4 
DD-H4, NXT6R 



DB-C2, FILL5 
DB-H4 
DE-H4, NXT5R 



DB-C2, FILL4 
DB-H4 
DF-H4, NXT4R 



*DB-C2, FILL3 
DB-H4 
DG-H1, NXT3R 



DB-C2, FILL2 
DB-H4 
DG-H3, NXT2R 



*DB-C2, FILL1 
DB-H4 
DG-H5, NXT1R 




NOTE: Compare decisions are 
based on one control 
field (no equal routine) 
and ascending sequence. 



COMP74 





Chart DC- Mainline Compare Routine, Fixed-Length Records 
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DB-C2, FILL5 
DB-H4, 

DE-H4, NXT5R 
DC-B2, COMP76 
DC-C2 

B2 



NOTE : Compare decisions are 
based on one control 
field (no equal routine) 
and ascending sequence. 



DB-C2, FILL4 
DB-H4 
DF-H4, NXT4R 



Sequence 
Depleted 



Compare 6:5 



£| J COMP54 



LOW OR 5 

.(depleted 



DB-C2, FILL3 
DB-H4 
DG-H1, NXT3R 



HI/EQ 



LOW OR 4 
DEPLETED 



DB-C2, FILL2 
DB-H4 
DG-H3, NXT2R 



HI/EQ 



DG COMP32 



LOW OR 3 
DEPLETED 

F2 



DB-C2, FILL1 
DB-H4 
DG-H5, NXT1R 



Compare 6:2 



LOW OR 2 
DEPLETED 
G2 



Compare 6: 1 



HI/EQ 



LOW OR 1 
DEPLETED 
H2 



Prepare to Move 
Seq 6 Record to 
Output Area 



SEQCHK 




Chart DD, Mainline Compare Routine Fixed- Length Records (Cont'd) 



Charts 
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DB-C2, FILL3 
DB-H4 
DG-H1, NXT3R 



DB-C2, FILL2 
DB-H4 
DG-H3, NXT2R 



DB-C2, FILL1 
DB-H4 
DG-H5, NXT1R 



DB-C2, FILL4 

DB-H4 

DC-D2, COMP75 

DD-B2, COMP65 

DD-C2 

DF-H4, NXT4R 




NOTE: Compare decisions are 
based on one control 
field (no equal routine) 
and ascending sequence. 




DC-D2, COMP75 
DD-B2, COMP65 



Chart DE. Mainline Compare Routine Fixed- Length Records (Cont'd) 
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DB-C2,FILL3 

DB-H4 

DC-E2,COMP74 

DD-D2,COMP64 

DE-B2 / COMP54 

DE-C2 

DG-H1,NXT3R 



DB-C2, FILL2 
DB-H4 
DG-H3, NXT2R 



DB-C2, FILL1 
DB-H4 
DG-H4, NXT1R 




NOTE: Compare decisions are based on one 
control field (no equal routine) and 
ascending sequence. 




IO 



'DC-E2, COMP74 
DD-D2, COMP64 
DE-B2, COMP54 



Chart DF«, Mainline Compare Routine Fixed- Length Records (Cont'd) 



Charts 



263 



DB-C2, FILL2 
DB-H4 

DC-F2, COMP73 
DD-E2, COMP63 
DE-D2, COMP53 
DF-B2, COMP43 
DF-C2 
B) 








DB-C2, FILL1 
DB-H4 

DC-G2, COMP72 
DD-F2, COMP62 
DE-E2, COMP52 
DF-D2, COMP42 




NOTE : Compare decisions are 
based on one control 
field (no equal routine) 
and ascending sequence. 



£ 



DB-H4 

DC-H2, COMP71 
DD-G2, COMP61 
DE-F2, COMP51 
DF-E2, COMP41 



C 



Prepare to Move 
Seq 1 Record to 
Output Area 



SEQCHK 




* DC-F2, COMP73 

DD-E2, COMP63 

J1 DE-D2, COMP53 

DF-B2, COMP43 



USTOP3 




~b 



DC-Gl, COMP72 
DD-F2, COMP62 
DE-E2, COMP52 
DF-D2, COMP42 





^^ 

DC-H2, COMP71 
DD-G2, COMP61 
DE-F2, COMP51 
DF-E2, COMP41 



Chart DG. Mainline Compare Routine Fixed-Length Records (Cont'd) 
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Initialize Input 
Disk Address 
Routine with 
Reduced Inter- 
leave Factors 



Initialize Input 
Disk Address 
Routine with 
Interleave Factors/ 



Increment Register 
Ofor Next Valid 
Record Number 



Increment Register 
Ofor Next Valid 
Track Number 




Store New Input 

Interleave 

Address 



Compute Exceeded 
Factor 



Retrieve Next 
Lower Extent and 
Compute Next 
Address 



Retrieve and Store 
Symbolic Unit 
Address for New 
Extent- 



Chart DH« Compute Input Interleaved Disk Address, Fixed-Length Records 



Charts 
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DC-J2,PUT7 DG-E1,PUT3 
DD-H2,PUT6 DG-E3,PUT2 
DE-G2,PUT5 DG-E5,PUT1 
DF-F2,PUT4 
B3 



*DK-C1 
DK-F2 / LABETY 



Update Output 
Area to Move Next) 
Output Record 



| For Tape Output, 
j Initialization 
j Routine Relocates 
j OPIEOVat 
« LWRITE+4 




Calculate Next 
Output Disk 
Address 



Phase 3 Record 
Count Routine 



7-Way 


4-Way 


DC-H4 


DF-H4 


DD-H4 


DG-H1 


DE-H4 


DG-H3 


DF-H4 


DG-H5 


DG-H1 




DG-H3 




DG-H5 





For Tape Output, 
Initialization 
Routine Relocates 
EOJTAP Following 
This Decision 




OPENF 



Initialize Output 
Area Count Field , 



Initialize toWrite \ 
Last Output Block 
and Close File 




PH3EJ1 









U)3/ 




NO 


J5 


CLOSE 


.ast Record^ 




YES 


Vocessed s 




idk~i 


[NO 




PH3EOJ 


( 


2 ) 







Chart DJ. Output Routine, Fixed- Length Records 
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DJ-E4, LWRITE+4 

DJ-E5 

DJ-C2, SEQERR 



Insert Open, 
Close or Sequence 
Error Indicator 
in Register 



DL-D5 
DL-E4 
DL-G3 
DL-H2 
DL-H4 



Insert End-of- 
Volume Indicator 
in Register 



I 



Prepare to 
Checkpoint 
Mainline 



1 

I Relocated During | 
I Initialization with I 
| OP1EOV Routine 
| (Tape Output Only)' 



\ Write Mainline, 

Read LLR, 

, Write LLR, 

Read 

\Mainline ; 



Initialize to 
Read In Label 
Linkage Routine 



Chart DK* Output Routine, Fixed- Length Records (Cont'd) 



Charts 
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Chart DL. Label Linkage Routine CLLR), Fixed- Length Records 
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Phase 3 
Initialization 



Fill Input Areas 



Compute Input 

Interleave 

Address 



Merge Records 



SEQCHK 



DU,DV 



Sequence Check, 
Reconvert, 
Exit 32, and 
Output Routine 




D$ORT303 - 3-WAY MERGE 
DSORT304 - 6-WAY MERGE 



Move Record to 
Output Area 



Last . ,_ 

Record \ NO 
Processed 




( End of Sort J 




Chart 04. Final Merge, Variable- Length Records (Phase 3), DSORT303 or DSORT30 4 
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Initailize Main- 
line Compare 
Branches if 
Equal Routine is 
Not Required 



IT COMP 

Initialize All 
Compare Loops 
with Compare Data\ 
Field 1 Length, 
Location and 
Sequenc e 





Calculate Con- 
statns for Phase 3 
Input Areas 



Initialize Phase 
3 Output Channel\ 
Program and 
Output Rtn for 
Tape Output 



Initialize 
Label Routine 
for Tape Output 
Specifications 




RELOCA 



RELOCA FA 



Re locator Routine 



J3 



Extract Constants 
from Checkpoint 
Record and 
Relocate Routines 
Starting at 
START 1 



Compute Output \ 
Area Constants 
and Initialize 
Channel Program 
with Data Count / 



Initialize for 
Disk Output and 
Label Linkage 
Routine for 
Disk Output 



Initialize Phase 
3 to Execute a 
1, 2, 3, 4, 5, 6, 
or 7-Way 
Merge 




USTOP1 



Chart DM. Phase 3 Initialization, Variable- Length Records 
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OM 


FROM 


6 


DP-G4 


5 


DQ-G4 


4 


DR-G4 


3 


DS-GI 


2 


DS-G3 


1 


DS-G5 




NXTR6 
NXTR5 
NXTR4 
NXTR3 
NXTR2 
NXTR1 



NOTE: USTOP1, FILL1, GET1, and IF1 labels 
apply for input sequence 1 . For 
input sequences 2 through 6, label 
suffixes are 2 through 6 respectively. 



OM 


FROM 


6 


DP-J4 


5 


DQ-J4 


4 


DR-J4 


3 


DS-J1 


2 


DS-J3 


1 


DS-J5 



Initialize 
to Read-in c 
Block of Records 
from Current 
Sequence 




OM 


Seq 1 


Seq 2 


Seq 3 


Seq 4 


Seq 5 


Seq 6 


6 


DP-G2 6:1 


DP-F2 6:2 


DP-E2 6:3 


DP-D2 6:4 


DP-B2 6:5 


DP-B2 6:5 


5 


DQ-F2 5:! 


DQ-E2 5:2 


DQ-D2 5:3 


DQ-B2 5:4 






4 


DR-E2 4:1 


DR-D2 4:2 


DR-B2 4:3 








3 


DS-C1 3:1 


DS-A1 3:2 










2 


DS-B3 2:1 













Store Current 
Sequence 
Interleave 
Factors 



OM 


Seq 1 


Seq 2 


Seq 3 


Seq 4 


Seq 5 


Seq 6 


6 


DP-G2 6:1 


DP-F2 6:2 


DP-E2 6:3 


DP-D2 6:4 


DP-B2 6:5 


DP-B2 6:5 


5 


DQ-F2 5:1 


DQ-E2 5:2 


DQ-D2 5:3 


DQ-B2 5:4 


DQ-B2 5:4 




4 


DR-E2 4:1 


DR-D2 4:2 


DR-B2 4:3 


DR-B2 4:3 






3 


DS-C1 3:1 


DS-A1 3:2 


DS-A1 3:2 








2 


DS-B3 2:1 


DS-B3 2:1 










1 


DS-D5PUT1 













6~~o 



Chart DN. Input Routine, Variable- Length Records 



Charts 



271 



DN-C2, Fl LL5 

DN-H4 

DQ-J4 




DN-C2, FILL3 [~~ 


n \ 




DN-H4 k 


y \ 




DS-J1 


f 


LOW OR 4 
DEPLETED 




COMP63 


E2 



DN-C2, FILL2 

DN-H4 

DS-J3 



DN-C2, FILL1 

DN-H4 

DS-J5 




NOTE: Compare decisions are based on one 
control field (no equal routine) and 
ascending sequence. 




Chart DP, Mainline Compare Routine, Variable-Length Records 
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DN-C2,FILL4 

DN-H4 

DP-B2 / COMP65 

DP-C2 

DR-J4 



DA-C2,FILL3 

DN-H4 

DS-J1 




NOTE: Compare decisions are 

based on one control field (no 
equal routine) and ascending 
sequence. 



' DA-C2,FILL1 
DN-H4 
DS-J5 




GET5 



Chart DQ* Mainline Compare Routine, Variable-Length Records (Cont'd) 



Charts 
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*DN-C2, FILL3 
DN-H4 
DS-J1 

DP-D2, COMP64 
DQ-B2, COMP54 
DQ-C2 



NOTE: Compare decisions are 

based on one control field (no 
equal routine) and ascending 
sequence . 




Prepare to Move \ 
Sequence 4 \ 

Record to Output / 
Area 






SEQCHK 




Initialize to Move\ 
1st Part of Split 
Record to 4 
Overflow Area 



AT 
ISPLIT 



DP-D2,COMP64 
DQ-B2,COMP54 



Chart DR. Mainline Compare Routine, Variable-Length Records (Cont'd) 
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*DN-C2,FILL1 
DN-H4 <^ Compan 




DN-C2,FILL2 DP-E2,COMP63 DR-B2,COM43 

DN-H4 DQ-D2,COMP53 DR-C2 



DN-C2,FILL1 
DN-H4 

DP-F2,COMP62 
DQ-E2,COMP52 



DR-D2,COMP42 

9 9 




NOTE: Compare decisions are 

based on one control field (no 
equal routine) and ascending 
sequence. 



DN-H4 

DP-G2,COMP61 
DQ-F2,COMP51 
DR-E2,COMP41 



^ 



Prepare to Move 
Sequence 1 Record \ 
to Output Area 




DR-B2,COMP63 
DQ-D2,COMP53 
DP-E2,COMP43 




Initialize to 
Move 1st Part of 
Split Record to 2 
Overflow Area 



60 



*DP-F2,COMP62 
DQ-E2,COMP52 
DR-D2,COMP42 




Chart DS* Mainline Compare Routine, Vari able- Length Records (Cont'd) 



Charts 
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IF 1 

DN | 



Initialize Input 
Disk Address 
with Reduced 
Interleave 
Factors 



Initialize Input 
Disk Address 
with Interleave 
Factors 



Increment 
Register for 
Next Valid 
Record Number 



Increment 
Register for 
Next Valid 
Track Number 




Store New 
Input Interleave 
Address 



Compute Exceeded 
Factor 



Retrieve Next 
Lower Extent 
and Compute 
Next Address 



Retrieve and 
Store Symbolic 
Unit Address 
for New Extent 



Chart DT. Compute Input Interleaved Disk Address, Variable- Length Records 
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*DP-H2,PUT6 
DQ-G2,PUT5 
DR-F2 / PUT4 
DS-D1,PUT3 
DS-D3,PUT2 
DS-D5,PUT1 

SEQCHK 



' DP-H5,SPLIT6 
DQ-H5,SPLIT5 
DR-H5, SPLIT4 
DS-H2,SPLIT3 
DS-H4,SPL1T2 
DS-K5,SPUT1 
(SPLIT 



W 




SEQERR 



El 



FB,FC,FD,FE 




EOJSW 





DN 


-D2 


Seq 


To 


1 


GET! 


2 


GET2 


3 


GET3 


4 


GET4 


5 


GET5 


6 


GET6 



*DP-G4,NXT6R 
DQ-G4,NXT5R 
DR-G4,NXT4R 
DS-G1,NXT3R 
DS-G3,NXT2R 
DS-G5,NXT1R 



Chart DU. Output Routine, Variable-Length Records 



Charts 
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PH3EJ1 



DU-E4 
DU-E5 
DU-D2, 
SEQERR OPENF 




C3 



Insert Open, Close, 
or Sequence Error 
Indicator in 
Register 



Insert End-of- 
Volume Indicator 
in Register 



Prepare to Check- 
point Mainlim 



"0W-D5 
DW-E4,X31EVT 
DW-G3 
DW-H2 
DW-H4 



Write Mainline, 

Read LLR, 

Write LLR, 

Read 

Mainline/ 









































3 


D 












£ 


a. 


O 










D 


D 


at. 










o 





UJ 










^ 














5 


< 


z 


z 








LU 

z 


z 


3 
O 


z 








z 


z 


to 


! 


OS 




5 


1 


I 


-j 


£! 


a 




£ 


Q 


a 


£ 


52 


< 




52 


< 


< 


Qi 


£ 


oc 




£ 


OS 


Of 


$ 


oc 


Sj 




QC 


ac 


Q£ 


OC 












t 
















< 


< 




< 


< 


< 


< 




H2 






fn 


7\ p 


Ul [D 






1 DW 1 


^i r^ 


Initialize to 


k^i 


^ 


r x 


y \ 


y xj 


Read in 


X31LNK 




LWR 


ITE MS 


PLIT CON 


Label Linkage 












Routine 















:hart DV. Output Routine, Variable-Length Records (Cont'd) 



278 IBM S/360 DOS Sort/Merge 



Decision Made 
by IOCS 




LABETY 



Chart DW. Label Linkage Routine (LLR) , Variable- Length Records 



Charts 
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Initialize Merge 
Mainline 



Open All 
Files 



Fill Input 
^ Areas 



G2 



402 EE,EF,EG 



Merge Records 



Output Routine 



Sequence Error 
Routine 




End-of-Job 
Routine 




C End of Job J 



NOTE : 401 and 402 in 
blocks denote 
DSORTnnn in 
which routine 
appears. 
Linkage between 
the overlays is 
provided by 
checkpoint routine 
(Chart EP). 



Chart 05. Merge-Only (Phase 4) , DSORT401 and DSORT402 
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Load Base Register 
and Store Logical 
Unit Address 



Store Address 
of First Track 
of Work Area 



Calculate Address 
of Second Track 
of Work Area 




Get Address of 
User Routines and 
Get OM 





Gl 




G2 


SY 
105 


5LOG\ NO 


Initialize 
Sequence Error 
Routine for No 
Response 


2 y 




YES 








HI 




H2 



Initialize Branch 
toCHKPOINT 
Depending on OM 




Initialize and 
Relocate Disk 
Input DTF Table 
for this File 



Initialize Tape 
Input DTF Table 
for this File 




BAL to TAPE or 
DISK for File B 
and Return to 
INIT4 




INIT3, INIT4, 
I and INIT5 Branches 
I were Initialized 
'at INIT2 



L 







BAL to TAPE 
or DISK for File 
C and Return 
to INIT5 




Initialize and 
Relocate Disk 
Output DTF 
Table 



Initialize Tape 
Output DTF 
Table 



Write Initialized 
Open/Close 
Routine on Disk 




Initialize 
Open/Close 
Routine for 
Disk Output 



BAL to TAPE or 
DISK for File D 
and Return to 
CHKPOINT 



Load Information 
for Merge 
Mainline 



FETCH 
DSORT402 



6 



PANCO 
(DSORT402) 



Chart EA. Initialize Open/Close Routine, DSORT401 



Charts 
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EA 
kJ4> 



PANCO 


Bl 




Load Base 
Registers and 
Store Information 
from DSORT 40) 


G 


ETAB 


CI 





A4 



Initialize Compare 
Loop*, and 
Sequence Check 
Compa re 



Initialize 
for Ascending 
or Descending 
Sequence 



Store Constants and 
Initialize Each 
Input File for 
Disk or Tape 





NO 




D2 


Modify Error 


Routine for No 


Bypass 



C4 



Initialize to 
Include or 
Exclude Optional 
Routines 



Initialize to 
Bypass Unreadable 
Records 




Relocate Optional 
Routines 



Initialize to 
Exclude Key and 
Key Length 



Calculate Input 
Areas and Start 
of Output Area 




Prepare Count 
Field 



Calcultae End 
of Output Area 



Determine Label 
Type and OM 
for User 



Initialize to 
Open Mainline 
and to Fill 
Input Areas 




FETCH User 
Routines 



Initialize Output 
Count Field 



Load Registers 
for Open/Close 
Routine 



Chart EB. Initialize Mainline, DSORT402 
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RESTOR+4 

t5 , 



Restore Starting 
Address of 
Input Area 



Store End-of-Block 
Address 



Load Address 
of TAPE! 



*EE-J3 
EF-H3 
EG-H2 
EG-H4 



Restore File 
Designation 



Get CCB and 
Indicator for File 
to be Processed 



Get Extent Limits 
for File and 
Increment Record 



*ED-H2 
ED-H3, ERROR , 
ED-J4, LASTBLK | 
ED-H5, ERRW 




Switch to Next 
Track and Switch 
Cylinders if 
Required 



_. . T - DISK 
Disk or Tape y . 




FB, FC, FD, FE 



Convert Data 
(One of Four 
Routines) 




Insert EOV 
Indicator 



Reduce Address 

by One and 

Store Seek Address 







EM, EN 



Get Next Extent 



* EE-B3, COMP43 (FILE D, OM=4) 
EE-B3, COMP43 (FILE C, OM=4) 
EE-D3, COMP42 (FILE B, OM=4) 
EE-E3, COMP41 (FILE A, OM=4) 
EF-B3, COMP32 (FILE B, OM=3) 
EF-D3, COMP31 (FILE A, OM=3) 
EG-C2, C0MP21 (FILE A, OM=2) 



Chart EC* Input Routine, DSORT402 



Charts 
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Turn Off Branch to 
EOFDK from Input 
Routine 




Turn on Branch to 
EOFDK from Input 
Routine 



Turn off EOF and 
Turn on BCERRW 



^ on Previous v >— — -» 
\ Block ,' /^\ 



NO 



Cl) 



Chart ED, Error Routine, DSORT4G2 
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LRA/LRB/LRC/LRD 



LRA/LRB 




NOTE : Compare decisions are based on one 
control field (no equal routine) and 
ascending sequence. 



Prepare to Move 
File D- Record to 
Output Area 




Chart EE. File D Compare Loop, DSORT402 



Charts 
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*EE-B3, COMP43 
EE-C3 

EC-F3, LRA/LRB 
B3 




NOTE: Compare decisions are based on one 
conrrol field (no equal routine) and 
ascending sequence. 



Prepare to Move 
File C Record to 
Output Area 




GET3 



Chart EF» File C Compare Loop, D3ORT402 
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EE-D3, COMP42 
EF-B3, COMP32 
EF-C3 
EC-F3, LRA 
C2 



NOTE : Compare decisions are 
based on one control 
field (no equal routine) 
and ascending sequence. 




V 



EE-E3, COMP41 
EF-D3, COMP31 



Prepare to Move 
File B Record to 
Output Area 



OUTFIL 



Prepare to Move 
File A Record to 
Output Area 





Chart EC 



File B Compare Loop, DSORT402 



Charts 
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*EE-F3, PUT4 
EF-E3, PUT3 
EG-E2, PUT2 
EG-E4, PUT1 




A3 



S Fixed- \ , 
< Length >■ 

^ Records ' 



Q. 



NO 



Restore Output 
Area Address 



Determine Block 
Length and Store 
Data Count 



Update Output 
Area Address 



Load Registers 
for Sequence 
Error Routine 



/ . . _ N . TAPE 
< Disk or Tape y „ 







< Disk or Tape 




Calculate Next 
Disk Output 
Address 




SEQERR 
(DSORT401) 



/ Reco 

\in Trur 

\Are 


MIX 
rd Fit N. 


YES 


cated /> 

a yT 




NO 






E2 




P 


Restore C 
Area to A 
Block Siz 


)utput 

Maximum 

e 




I 

Fl 


JLOUT 


^ 

F2 






Restore Track 
Capacity and 
Set End-of- 
Track Indicator 




Determine Length-] 
of Record to Be 
Moved 



FB,FC,FD,FE 



Reconvert Data 
(One of Four 
Routines) 



Determine Length 
and Length- 1 
of Record to Be 
Moved 



J3 



Initialize Registers 
and Move Record to 
Output Area 



Update Count of 
Records Processed 
and Restore LINK 
Register 




EE-J3 
EF-H3 
EG-H2 
EG-H4 



LMTOKO 



Store New Disk 
Address and Seek 
Addresses 



Initialize for 
Open/Close 
Routine 



<^ Disk or Tape 
s 



\ DISK 



Update Output 
Block Count 



Increment 
FILEO to Bypass 
Count Field 



EM,EN 



Open Next Volume 
or Get Next 
Extent, if Any 




NO * EJ-B3, PH3EOJ 
EJ-J3, TAPOUT 



Chart EH. Output Routine, DSORT402 
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Insert Last Record 
Indication for User 



Initialize to 
Process Last 
Record 



Reconversion and 
User Exit for Last 
Record 



Initialize to 
Write Last 
Block 



F3 

/ \ 
/ \ YES 

< Ke V > 

\ / 

\ / 

NO 



WRITEV EH 



Write Last Block 



< 



Sk-..i. „t___\ DISK 



Disk or Tape Ns N 
Output ' 

\ / 

TAPE 



Prepare to Close 
File and Write 
EOJ Messages 



I EM 1 
SB2/ 

BEGIN 
(DSORT401) 



LWRITE EH 



Write Last Block 



Write EOF Record 



:hart EJ. End of Job Routine, DSORT402 



Charts 
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CLOSEO 



An y \ no 

Blocks x 

Bypassed 

Tyes 



y Print Bypass 
Message 



Print 
End of Job 
i Messages 



( End of Job J 



Chart EK. End of Job Messages, DSORT401 
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Insert File 
Designation in 
Error Message 



Print Error 
Message 



RESPONSE 



E3 



< 



/ \ 

/ \ NO 

SYSLOG isa N N 

1052 



\ 



YES 



/ 



k Read Operator y 
Response 




C Cancel Job J 




Chart EL, Sequence Error Routine, DSORT401 



Charts 
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*EL-E3, 
EL-G3 
EN-B4, 
EN-J2, 
EN-J3, 
EN-J4 
EN-J5 



CLOSEI 

NIEFI 

MODIFY 



CFrom Mainline ^ 
Via Re 9 LINK J 



/"From IOCS when^s 
VExtf 44 is Specified 



Store Contents of 
Registers 




USE REX 44 B5 



Store Address of 
CCB for File A 



Store Address of 
Output CCB 




< Disk or Tape 



Get Extent Limits 
and Address of 
Logical Unit 



Restore Registers 



/Return to Mainline^ 
V ^/ia Reg LINK J 



f Return to IOCS J 



D3 COMP 



Store EOV or EOF 
Indicator 




Store Block Count 
and Reset to Zero 



Insert 'V in 
Open/Close 
Indicator 




Chart EM, Open/Close Routine, DSORT401 
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EM-G4 
EM-G5 



Get DTF Table 
Address and File 
Designation 




Turn on 'TPDKSW' 
and Store Device 
Type 




Store Block Count 
and Reset to Zero 



Turn off 'TPDKSW 
and Store Device 
Type 




Turn on Unit 
Exception Bit in 
DTF 




OFF 
Tape/Disk \ (DISK) 
Switch 



Initialize Rewind 
Option for CLOSE 
Time 



/from IOCS When~\ /~~ 

Uxit 41 is Specified! 1 



Load File 
Designation and 
Label Type 
for User 



(Return to IOCS ) 



Get Extent Limits 
and Logical Unit 
Address 



Increment Branch 
Address in Mainline 
for Return 



CLOSE Input 
VFile 



Initialize Branch at 
FEOVTP and Decre- 
ment Volume Count 




Increment Branch 
Address in Mainline 
for Return 



Turn Off FEOV 
Bit and Increment 
Mainline Address 



rhart EN. Open/Close Routine (Cont'd), DSORT401 
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FROM MAINLINE 
1 I I * J (See figure 50 in text.) 



Store Address of 
First Track of 
Work Area 




^ Write Mainline / 
(DSORT402) 



Read Mainline ; 
(DSORT402) 



Store Address of 
Second Track of 
Work Area 



MREG+30 
(See figure 50 in text.| 



Read 
DSORT 401 . 





G3 


Store Address of 
CEVCHK in RG15 




H3 


Execute DSORT401 
Functions 




J3 



Write 
DSORT401 



rhart EP. Checkpoint Routine, DSORT402 



294 IBM S/360 DOS Sort/Merge 



ENTER FROM MAINLINE 
INITIALIZATION VIA LINK REGISTER 



RELOCA 





Initialize Compare 
Set with C.F. 
Displacement and 
Length 



Move Optional 
Routine to 
New Address 




Activate Branch 
and Include Length 
of this Routine 



F4 



Initialize Base 
Registers to 
Compare in Same 
Order 



Update Starting 
Address of I/O 
Areas 



RLMDGT 



Initialize Base 
Registers to 
Compare in 
Opposite Order 



Modify for 

Next Control Field 



Update Constants 
for Checking 
Next Routine 





Adjust Equal 
Routine to 
Required Length 



RETURN TO MAINLINE 
INITIALIZATION VIA 
LINK REGISTER 



Chart FA. Relocator Routine, Phases 2, 3, and 4 



Charts 



295 



BAL FROM MAINLINE 
(PHASES 1 AND 3 FOR SORT, 
PHASE 4 FOR MERGE-ONLY) 



Get First Address 
of Equal Rtn Sets 



Get Number of 
Fields to Convert 



Calculate Address 
of CF 



Invert Sign Bit 



Modify for 
Next CF 




RETURN TO MAINLINE 
VIA LINK REGISTER 14 ' 



:hart FB, Fixed Point Convert /Reconvert 



NOTE: Convert in 

phases 1 and 4. 
Reconvert in 
phases 3 and 4. 
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BAL FROM MAINLINE 
(PHASES 1 AND 3 FOR SORT, 
PHASE 4 FOR MERGE-ONLY) 



Get First Address 
of Equal Rtn 




Get Number of 
Fields to Convert 



Generate a True 
ASCII Plus 
(Hex A) 



Get Address of 
Sign Byte 



Shift Two Hex 
Digits a Half Byte 
to Right 




Store Sign Bits 



Invert Two Hex 
Digit Bits 




Leftmost X YES 
Byte of CF 



Modify for Next 
Byte 



Generate a True 
EBCDIC Plus 
(Hex C) 



Store Sign Bits in 
Leftmost 4 Bits of 
CF and Reverse 
Sign 



Restore and Save 
Sign 



Shift Two Hex 
Digits a Half 
Byte to Left 




Modify for Next 
Byte 




Store Sign Bits in 
Rightmost 4 Bits 
of CF 



Modify for 
Next CF 




RETURN TO MAINLINE 
VIA LINK REGISTER 14 



NOTE : Convert in 

phases 1 and 4. 
Reconvert in 
phases 3 and 4. 



Invert Two Hex 
Digit Bits 



:hart FC, Floating-Point Convert/ Re convert 



Charts 297 



BAL FROM MAINLINE 
VIA REGISTER 14 



Determine Address 
of Mainline 
Compare 
Instruction 



In Phases 2 and 3, 
This Label is 
EQUAL 



Insert Mainline 
Register Contents 
in Compare Set 



IGLCOM 




IGDUM 



Return to Branches 
in Mainline 
Compare 



Adjust Link 
Register for 
Mainline Return 
Address 







RETURN TO MAINLINE 
VIA REGISTER 14 



Chart FD. Pa eked- Decimal (SIGPAK) Convert/ Reconvert 
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BAL FROM MAINLINE 
(PHASE 1 AND 3 FOR SORT 
PHASE 4 FOR MERGE-ONLY) 



NOTE : Convert in 

phases 1 and 4. 
Reconvert in 
phases 3 and 4. 



Get First Address 
of Equal Rtn 
Sets 



Get Number of 
Fields to Convert 



Get Address of 
Sign Byte 




'Convert or \RECONVERT 
Reconv 




Restore and 
Save Sign 



Save Sign and Fill 
Sign Position 
with Zone Bits 



Restore Leftmost 
CF Zone 




Insert Sign in 
Leftmost CF Zone 



Restore Sign in 
Correct Position 



Reverse Sign 



Invert Digit Bits 



Get Next Left Byte 



© 




Modify for 
Next CF 



Generate a True 
EBCDIC Plus 
(Hex C) 



Generate a True 
ASCII Plus 
(Hex A) 



> < 




RETURN TO MAINLINE 
VIA LINK REGISTER 14 



Chart FE. Zoned-Deciinal (SIGZON) Convert/ Reconvert 



Charts 
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BAL FROM MAINLINE 
(PHASES 1 AND 3 FOR SORT, 
PHASE 4 FOR MERGE-ONLY) 



Convert or\ CONVERT 
Reconvert 




Turn on Switch for 
Reconversion 



Get First Address 
of Equal Rtn Sets 



Get Number of 
Fields to Convert 



Calculate Address 
of CF 



NOTE : Convert in 

phases J and 4< 
Reconvert in 
phases 3 and 4. 




Invert Sign Bit 



Modify for Next 
CF 




Restore Conversion 
Switch 



RETURN TO MAINLINE 
VIA LINK REGISTER 14 



Chart FF. Equal Routine, Phases 2, 3, and *J 



Invert Digit Bits 
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APPENDIX A: CONSTANTS AND ABBREVIATIONS 



CONSTANTS 



ASSIGNMENT PHASE CONSTANTS 



Label 



ADD1 



Contents 



Starting address of user routines in phase 1 



Bytes 

4 



ADD 3 4 



Starting address of user routines in phase 3 or 4 



ADDLUB 
ADDPUB 

ADDROT 

ADDROUT 

ADDWD 

ADDWD1 

ADD WD 2 

AL3 



ANSI 

AN 

ANS 



Sl^ 

52 \ 

53 J 



AS AVE 

AVAILC 

B 

B3MAX 

BI 

BLANKS 8 
BLK123 

BLKSIZ 
BLKSOZ 

BLKSIZE 

BMAX 



Address of logical unit block 2 

Address of physical unit block 2 

Message: " ADDROUT = w 8 

Field definer: "ADDROUT" 7 

Location of control card in TBLADD 4 

Length of logical control card in TBLADD 2 

Code of control card in TBLADD 2 

Decimal zero 1 

Calculated results from TABLEF, using 12 

TABLE, TABLE 2, and TABLE3 

respectively 

Address constant used to locate storage area, SAVE 4 

Available storage for input, output, and work areas 4 

Computed internal sort blocking factor 2 

Calculated maximum phase 3 (output) block length 4 

1, Format code designating use of unsigned binary 2 

2- Calculated number of records per input block 4 
from overlay 9 (DSORT009) 

Two full words of blanks (Bex 4 0) 8 

Three 4- byte temporary storage areas for calculated 12 
value of BMAX for phase 1, 2, and 3 respectively 

Input blocksize given by user 2 

Output blocksize (maximum blocksize for 2 
variable- length records). This area is also used 
to store L5 during scanning. 

Field definer: "BLKSIZE" 7 

Computed maximum block length used by all program 2 
phases 
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Label 



Contents 



Bytes 



BO 



Output blocking factor calculated by overlay 9 
(DSORT009) 



BPT Calculated number of sort blocks per 2311 track 4 

BPT1IP Calculated phase 1 input blocks per track for 2 
fixed- length records 

BPT30P Phase 3 output blocks per track for fixed-length 2 
records 

BYBKLS Computed number of bytes per last block 2 

BYPAS Field definer: -BYPASS- 6 

BYPSSA Message: -BYPASS" 6 

BYTBLK Calculated maximum number of bytes per block, 2 
including disk gaps* 

BYTECT Byte count of save area 4 

CIO Character constant 10 2 

Cll Character constant 11 2 

C20 Character constant 20 2 

C31 Character constant 31 2 

C41 Character constant 41 2 

C101 Character constant 101 3 

C401 Character constant 401 3 

CALCAR Message: -CALCAREA- 8 

CALCAREA Field definer: "CALCAREA* 8 

CANCEL Lower case compare constant for -cancel- reply 6 

CANCELUP \ Upper case compare constants for 6 

CANCLCAP J -CANCEL- reply 

CCAREA Main storage area containing compressed unsorted 736 
control cards 

CCB1 CCB for printing messages on SYSLOG or SYSLST 16 

CCBRCP CCB for reading checkpoint for RESTART 16 

CCBWCP CCB for writing checkpoint on disk 16 

CCDS Message: **** CONTROL CARDS ***" 24 

CCEND Address of end of message area 4 

CCSADD Address of start of current message 4 

CCSAVE Save area for sorted compressed control cards and 736 
imprinted messages 

CCW1 CCH for printing messages on SYSLOG or SYSLST 8 
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Label 

CCW1+8 

CDCOUNT 

CF1LCT ^ 
through > 
CFCLNG J 

CF1SEQ ^ 
through \ 
CFCSEQ J 

CFA 



CFB 

CFPL10 
CIMAGSV 

CKPT 

CLOSE 

CONBKT 

CONHDG 

CONSTANT 

CORES Z 
CORHLD 
CP2LP8 
CPST 

CTR 

DATE 
DATECONV 

DEVTAB 
DOUBLE 



Contents Bytes 

CCW for reading operator reply if SYSLOG is a 1052 8 
Control card count 1 

Location of control fields 1 through 12 24 

Collating sequence of control fields 1 through 12 24 

Save area for control field A computation used to 2 
check for control field overlap 

Save area for control field B computation used to 2 
check for control field overlap 

Total length of control fields plus 10 (TLACFD +10) 2 

Address of next control card save area (when all 4 
control cards have been read, contains the address 
of the first byte past the save area used) 

Checkpoint disk address (DDCHHR) 6 

Field definer: H CLOSE=" 6 

Indicator for heading printed 1 

Message: "*** COMPUTED CONSTANTS ***" 24 

Heading to be printed for printout of calculated 8 3 
constants - see program listing 

User given or actual machine size 4 

Main storage size from system generation time 4 

Denominator l2(Ll)+8] used in calculation of PH1B1 2 

Number of cylinders required to accommodate a phase 4 
1 sequence 

Count of the number of pointers to work area 1 

initialized 

Current data given by user 8 

Date convention used at creation time: 1 

00000000 - MMDDYY 

00000001 - DDMMYY 

A maximum of seven 4-byte entries. The first 2 28 max 

bytes of each entry contain a device number 
obtained from TABLEB. The second 2 bytes contain 
the total number of available tracks on the device. 

Phase work area for conversion routines 32 
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Label 



DUPBK 





Contents 
ve area for processed control card 


Bytes 


Eight-byte sa 


8 


codes : 






1 - SORT 


5 - OUTFIL 




2 - MERGE 


6 - MODS 




3 - RECORD 


7 - OPTION 




4 - INPFIL 


8 - END 





E03 — E06 ^v 
E16 — E23 
E25--E27I 
E28 — E49 
E51 — E54 
E57—E61 
E64 — E85 
E90 — E92 
E3050 

E06BKT 

E68WRK 

END 
ERRBK 



EX1 



Error messages - see program listing 
and Appendix D. 



Error n 7D06I B indicator - see Appendix D. 

Work area used to reinitialize error message E68 
"7D6 8I" (see Appendix D) . 

Statement definer: •VEND' 1 

Error indicator: 

OFF - hex 
ON - hex D2 

Byte - Phase 1 exit indicators 



1 
59 

3 

1 













EXIT 
13 


EXIT 
12 


EXIT 
11 



Byte 1 - Block type and tape options 



VAR 
BLK 


FIXED 
BLK 


OPEN 
RWD 


OPEN 
NORWD 


- 


CLOSE 

UNLD 




CLOSE 
RWD 




CIOSE 
NORWD 



E3C34 



Phase 3 or 4 exit indicators 



EXIT 

F12 

F512K 

F4096 

F16384 
FI 



- 


- 


- 


EXIT 
45 


EXIT 
44 


EXIT 
43 


EXIT 

42 or 32 


EXIT 

41 or 31 


Messc 
Const 


ige: 
:ant 


"E> 
12 


CIT- 











Constant 524288 used to determine limit of main 
storage size 

Constant 4096 used as relocation factor for overlay 
1 (DSORT001) 

Constant 16384 used to test for storage size of 16K 

Format code: FI - fixed point 
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Label 



Conte nts 



Bytes 



FIELDS 



Field definer: "FIELDS" 



FILFDC 
FIL.EMS 
FILES 
FILES I 
FILES Z 
FIOCS 

FIXED 

FL 

FMATBK 

FNP 

FORM 
FORMAT 



Field definer: "FILES" 5 

Constant allows all disk writes 1 

Number of input files given by user (see MRGVOL) 1 

Field definer: "SIZE" a 

Number of records to be sorted; given by user 4 

Time required to execute IOCS; determined by 4 
machine model 

Field definer: "FIXED" 5 

Format code: "FL" - floating point 2 

User given format code for PRINT option 2 

Number of merge passes calculated for run time in 4 
overlay 9 (DSORT0 09) 

Phase 1 format time calculated in overlay 9 a 
(DSORT009) 

1. Byte 0-8 bits for format indicators 2 



- 


- 


FL 


BI 


FI 


PD 


ZD 


- 



FRACT 

G 

GA1 

GA2 

HO 

through 
HI 2 

H25 

H80 



FL - floating point 
BI - unsigned binary 
EM - fixed point 
PD - packed decimal 
ZD - zoned decimal 

Byte 1 - NOCFLD, number of control fields in 
bi na ry 

2. Message: "FORMAT" used in overlay 9 (DSORT009) 6 

Fraction (or portion) of sort to be executed on one 4 
2 311 disk drive used in timing calculations in 
overlay 9 (DSORT009) 

Computed number of records in a phase 1 sequence 4 

Available core for sort 4 

Computed number of sort blocks, plus an 8-byte tag 2 
for each record in the sort block, in GA1 



Flex constants (2 bytes each). through 26 

10 used for overlay numbers* 

Constant 25 2 

Constant 8 2 
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Lafoe 1 

H255 

H256 

H300 
HALFTK 

HEAD 



HL8 ^ 
through > 
HL25X J 



HOLDC 
HOLDCY 



IBC 
IBIC 
IBOC 
IBR 

IGNORE 
IGNOREUP 

INBSV 

IND85 
INP 

INPFIL 

INPUT 

INPUTMRG 



Contents Bytes 

Constant 255 2 

Constant 256 2 

Constant 300 2 

Half of the user-given work area tracks minus 2 
checkpoint tracks. 

Heading used for print out of modifications, name, 50 
address, and exit number. 

Nine half-word literal constants — see 18 
program listing of assignment phase 
overlay 9 (DSORT009) for specific values. 

Total number of cylinders in TABLE F. 4 



Sort block size in number of characters (bytes) 4 
used in run time calculations. 

Input block size in number of characters (bytes) 4 
used in run time calculations. 

Output block size in number of characters (bytes) 4 
used in run time calculations. 

Number of records in a sort block, used in run time 4 
calculations. 

Lower case character constant used to check 6 

operator reply "ignore". 

Upper case character constant used to check 6 

operator reply "IGNORE". 

Input print heading for: INPUT, BLOCKS IZE # TYPE, 67 
TAPE OPEN, and CLOSE. 

Error "7D85I" indicator (see Appendix D). 1 

Indicator used in run time calculations to 4 

determine odd or even number of passes. 

Statement definer: "INPFIL" 5 

Field definer: "INPUT=" 6 

Byte - Output file 8 

Byte 1 - Input FILEA 

Byte 2 - Input FILEB 

Byte 3 - Input FILEC 

Byte 4 - Input FILED 

Byte 5 - INPBK 

Byte 6 - SYSLGBIT 

Byte 7 - SKIPCODE 
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Label 



Conte nts 



Bytes 



Byte 



" 


UNLAB 


NON 
STD 


STD 


— 


DISK 

OUTPUT 

OLVP 


DISK 
OUTPUT 


TAPE 
OUTPUT 



Byte 1 


through 4 (FILEA throuqh FILED) 









UNLAB 


NON 
STD 


STD 








DISK 

INPUT 


TAPE 
INPUT 



Byte 5 (INPBK) 



TYPE OF INPUT 

0001 - Tape only 

0110 - Disk only 

0111 - Mixed tape 

and disk 



Byte 6 (SYSLGBIT) ~ 

Bits through 5: unused 
Bit 62 SYSLOG = SYSLST 
Bit 7: SYSLOG = 1052 



Byte 7 (SKIPCODE) - DTFCP carriage control byte 

XNQCCB CCB for operator communication write 

TNQCCW CCW for operator communication write 

INQCCW+8 CCW for reading operator communication reply if 

SYSLOG is a 1052 

INTP.RL Four 2-byte entries for Ll # L2 , L3 , and L«* . 

LI (INTPRL) - input record length (fixed-length 
records) or maximum input record length 
(variable- length records). 

L2 (INTPRL+2=NOTUSE) - not used by sort program, 

L3 (INPRL+U=OTPTRL) - output record length 

(fixed- length records) or maximum output 
record length (variable-length records). 

L4 (INTPRL+6=MINRCL) - minimum record length 
(variable- length records only). 

IRL Calculated sort record length used in run time 

calculations. 

IRPT Calculated number of records per 2311 track used in 

run time calculations • 

JOB NAME Job name as it appears in job control statement. 



16 
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Label 



KEY 



Contents 

Byte - keylength, Byte 1 - other options* 
Byte 1 



TAG 
TYPE 


CALC 
AREA 


N 


V 


B 


P 


R 


C 



Bytes 
2 



HELEN 
KEYRTN 

L2 

through 
L3624X 

L3MAX 
L5 



LABBKT 
LABEL 
LBND 
LABSW 



} 



LEN1 

LEN34 

LENGTH 

LF2 



TAGTYPE: -tag only, 1-tag plus control data. 

CALCAREA: 0- option not specified, 1- opt ion 
specified* 

N - NOTPMK option 

V - VERIFY option (disk only) 

B - BYPASS (tape input for sort, tape input or 
output for merge). 

P - PRINT option. 

R - ADDROUT option (disk input only). 

C - RESTART option (sort only). 

Field definer: "KEYLEN" 6 

Message: "KEYLEN" 6 

37 full word literal constants used in 14£ 

run time calculations — see program 

listing of overlay 9 (DSORT009) for specific 

constant and value. 

Computed phase 3 (output) maximum record length. 4 

Average length of a variable-length record without 2 

tag. ( Not e: L5 is used only for a sort run when 
variable-length records with no ADDROUT has been 
specified, ) 

Save area for label information. 5 

Field definer: "LABELS" 6 

Lower pack boundary used in run time calculations. 4 

Retains label information in one byte. 1 

Bits through 3 - Output labels 

Bits 4 through 7 - Input labels 
0001 — standard labels 
0100 — unlabeled 
0010 — non-standard labels 

Length of phase 1 exit routines. 4 

Length of phase 3 or U exit routines. 4 

Field definer: "LENGTH" 6 

Hex constant 00O00OF2 1 
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Label 



LGTH 



Contents 



Message constant for printing values of LI through 
L5. 



By tes 
50 



LL1 

through 

LL4 



} 



Assumed disk work area limits for 
calculating run time. 



16 



LLS 



Line heading for printout of location, length, 
sequence, and format of control fields. 



47 



LLSITK 



Save area for computed total number of lower limit 
tracks used in run time calculations. 



LMAX 

LMAXNO 

LOC 

LOGWKA 

LOWTM 



MANDBK 



Calculated maximum record length used by phases 1, 
2 , a nd 3 - 

Constant "7FFFFFFF" used in run time calculations. 

Location of control fields for print messages. 

Two 2-byte entries containing location of pointers 
indicating start of each logical area in TABLEB. 

Save area for lowest calculated sort time for trial 
order of merge in run time calculations. 

Value of denominator L6CL1/256)] used in phase size 
calculations. 

Eight 1-byte entries for retention of code for each 
logical control card processed. 



s 


M 


R 


I 





E 





D 



4 

16 

4 



MAXBL 

MAXBL1 
MAXBL2 
MAXBL3 

MERGE 

MF 

MFS 

MID 
MODS 



S=SORT 
M=MERGE 
R= RECORD 
I=INPFIL 



0=OUTFIL 
E=M0DS 
C= OPT ION 
D=END 



Calculated maximum block length that can be 
processed by phases 1, 2, and 3. 

Calculated maximum block length for 
phases 1, 2, and 3 respectively. 



Statement definer: "MERGE" 

Message: "MERGE FIELD" 

Computed maximum file size (number of records to be 
sorted) for a sort run only and fixed- length or 
ADDROUT records. 

Midpoint of disk work area used in run time 
calculations. 

Statement definer: "MODS" 



12 

5 

11 

2 
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Label 



MRGVOL 



MS 



MSG01 

through 

MSG78 

MS G ADD 



} 



MSGI1 
MSGR2 
MS GSM 1 
MXBYPT 
N 

NOCFLD 

NONE 

NONST 

NOP 

NOPASS 

NOPMSG 
NORWD 

NOSEQ 

NOTPMKL 

NP 

NRTHWK 

NRTOUT 

NRTRKS 

OM 



Contents 
Number of volumes and files for sort* 
FILE ABCDEPGHJ 



Bytes 
10 



Number of 
volumes per 
file 



Total number of files (MRGVOL+9) 



Machine size either given by the user or extracted 

from the communications region. 

Print messages; see program listing 
for specific message. 



Main storage address of control card being 
processed. 

Message: "INFIL" 

Message: "RECORD" 

Message: "7D08I" (see Appendix D) . 

Calculated maximum number of bytes per 2311 track. 

Number of control fields (NOCFLD) plus 10 used in 
phase size calculations. 

Number of control fields — in binary (equates to 

FORMAT+1). 

Message: " NONE" 

Message: "NONST" (non-standard labels) 

Hexadecimal 4700 used to prevent execution of a 
branch instruction. 

Computed number of merge passes in phases 2 and 3 

Message: "OPTIONS SPECIFIED" 

Message: "NORWD" (no rewind) 

Computed number of output sequences from phase 1. 

Field definer: "NOTPMK" (tapemark option) 

Computed number of merge (phase 3) passes used in 
run time calculations. 

Number of tracks in half work area computed by run 
time calculations (DSORT009). 

Number of tracks required for output computed by 
run time calculations (DSORT009) 

Total number of tracks required 
( NRT HWK+WRT I N-f NRTOUT) . 

1. Computed order of merge for a sort run or 
given order of merge for a merge run — see 
FILES. 



6 

6 

54 

2 

2 



4 
5 
2 

2 

17 

5 

4 

6 

4 
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Label 



Contents 



Bytes 



OMMSG 
OMPL1 
ONE 

OPEN 
OPERRBK 

OPMSG 

OPTION 

OTWKAR 

OUTFIL 

OUTMS 

OUTPUT 

PATCH 

PD 
PH1B1 

PH1B2 




PHS1 
PHS2 
PHS34 
PHS4 



PHS2MIN\ 
PHS3MIN/ 



PHS2MX 
PHS34MX. 



PIOCS 

PRINT2 
PRTMSG 



2. Trial order of merge used in nan time 
calculations in overlay 9 (DSORT009). 

Message: "FILES" 

Order of merge plus 1. 

Full word constant 1 used in run time calculation 
(DSORT009). 

Field definer: "OPEN" 

Indicator for operator intervention error (same 
conditions as ERRBK) . 

Message: "OPTION" 

Statement definer: "OPTION" 

Message: "OUTPUT IN WORKAREA" 

Statement definer: "OUTFIL" 

Message: "OUTPUT BLOCKS IZE XXXXXXX LABEL XXXXXX" 

Field definer: "OUTPUT^" 

1. 44 -word patch area in overlay 2 

2. 44 -word patch area in overlay 6 

Format code H PD"-packed decimal. 

Calculated maximum number of records in a phase 1 
sort block. 

Result of alternate calculation of the maximum 
number of records in a phase 1 sort block. 

Field definer: "PH1=" 

Field definer: "PH3=" 

Field definer: "PH4=" 

Symbolic name for phase 3 or 4 exit routines. 

Symbolic name for phase 1 exit routines. 

Minimum sizes for indicated phases of the program. 

Calculated minimum size for phases 
2 and 3 respectively. 

Computed maximum size for phase 2 and 3, 
respectively, for OM 5 to 7 (fixed-length records) 
or 4 to 6 (variable- length records). 

XTENT retrieval area at FILEW open time 

Message: "PRINT" 



5 
2 
4 

5 
1 

30 

6 

18 

6 

30 

7 

176 

176 

2 

2 



72 

5 
5 
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Label 



PRNT 



PRO CI \ 
PROC2 / 



R3SAVE 

R4SAVE 
R5SAVE 
R8SAVE 
R9SAVE 
R AS AVE 

R7SAVE 



RAFRTN 
RBBKT 
RDT1 
RDWR2 3 

RE ADC K 
READIN 
RECORD 
RECTYP 



Contents 



Field definer: "PRINT" 



Process time for phases 1 and 2, 

respectively, computed by run time calculations 

(DSORT001), 



Storage area for general registers 
3,4,5,8,9, and 10 respectively. 



Double word storage area for two counter registers 
used in check of control field overlap* 

Message: n ADDROUT" 

Save area for control card codes. 

Computed phase 1 read time. 

Read and write time calculated by DSORT009 for 
phases 2 and 3, 

CCW for reading checkpoint count, key, and data 

Read -in and write- out area for print CCW, 

Statement definer: "RECORD" 



Bytes 

5 

8 



24 



7 
2 
4 
4 

8 

100 
6 
1 



V 


F 


OPEN 
RWD 


OPEN 
NORWD 


— 


CLOSE 
UNLD 


CLOSE 
RWD 


CLOSE 
NORWD 



RESTAT 

RESTRT 
RETRY 

RETRYUP 

RPTBKT 

RT 



V - variable -length records 
F - fixed-length records 
RWD - rewind 
NORWD - no rewind 
UNLD - unload 

Field definer: "RESTART" 

Message: "RESTART" 

Lower case constant used to check operator reply 
"retry," 

Upper case constant used to check operator reply 

"RETRY", 

Save area for calculated number of records per 2311 
track- 
Message: "RECORD TYPE" 



7 
7 
5 



11 



312 IBM S/36 DOS Sort/Merge 



Label 
RUNCOD 

RWIND 
S 

SAVE 



SAVERA 
SAVERERF 



Conte nts 

User run code from columns 73-8 of first control 
card (for assignment phase only) 

Message: "RWD" - rewind. 

Size, length and collating sequence of control 
cards for printout. 

Save area for calculated constants computed for 
each internal order of merge of a sort run. Used 
for run time analyses, SAVE contains 6 sets of: 

OM (internal order of merge) - 2 bytes 

B (number of records per internal sort block) - 2 
bytes 

SBSIZE (internal sort block size in bytes) - 2 
bytes 

BPT (maximum number of internal sort blocks per 
2311 track) - 2 bytes 

G (number of records per phase 1 sequence, or 

maximum number of records for variable-length 
with no ADDROUT) - 4 bytes 

GA1 (available storage for sort) - 4 bytes 

GARB A (number of bytes in a phase 1 sequence, 
excluding tag area, in GAD - 4 bytes 

GAREA1 (number of bytes in a phase 1 sequence, 
including tag area, in GA1 — or, average 
number of records in a sequence for 
variable-length with no ADDROUT) — 4 bytes 

NOBLKG (number of sort blocks in GAREA) - 2 bytes 

MXBYPT (maximum number of bytes per 2311 track — 
becomes relative time after DSORT00 9 has been 
processed) - 2 bytes 

AMAX (Maximum work area size) - 2 bytes 

NO PASS (number of merge passes in phases 2 and 3) - 
2 bytes 

Note: The routine beginning at the label PRTEXIT 
in overlay 10 (DSORT010) will print the 
contents of SAVE for diagnostic purposes. 
Refer to the listing comments for an 
explanation of the use of the PRTEXIT 
routine. 

Save area for link register (general register 10). 

Save area for general registers 14 and 15. 



Bytes 

8 

3 
21 

192 



Appendix A 313 



Label Contents Bytes 

SAVIMAG Storage area used to retain control card image (up 2004 

to a maximum of 25 cards) for print- 

SAVREGS Temporary storage used to retain contents of 20 

miscellaneous registers. 

SAVREM Save area for the remainder, during a divide 2 

instruction, resulting from calculations of LMAX 
and BMAX. 

SAVROM Pointer to trial order of merge used in run time 4 

calculations. 

SAVRPT Number of records per 2311 track for trial order of 4 

merge. 

SBSZPTAG Denominator: SBSIZE+ [8(SBSIZE/LD ] , used in the 2 

calculation of GA2 (number of sort blocks, plus an 
8-byte tag for each record in the sort block, in 
GA1 ) . 

SECCTR Number of sections into which the work area is 1 

divided. 

SEQ Collating sequence of control fields 1 through 12- 12 

SF Message: "SORT FIELD" 10 

SHTSK2 Shortest phase 2 seek time computed by run time 4 

calculations in DSORT009. 

SIZE Field definer: "SIZE" 4 

SKLEN Calculated length of seek in number of cylinders. 4 

SKT Calculated time for one seek. 4 

SKT2 Total phase 2 seek time computed by run time 4 

calculations in DSORT009. 

SKT3 Total phase 3 seek time computed by run time 4 

calculations in DSORT009. 

SORMBK S-character (sort) or M-character (merge) used to 1 

indicate type of run. 

SORT Statement definer: "SORT" 4 

SPDFAC Speed factor determined by machine model. 4 

STD Message: "STD" 3 

STORAG Message: "STORAGE^" 8 

STORED 1. Save area for general registers 5 through 10 24 
in CCERR routine. 

2. Save area for general registers 2 and 3 in 8 
overlay 7 (DSORT007). 
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Label 

STP123 

STRING 
SUBTRC 

SUPER 
SVBK 
SYSDATE 
SYSTBLE 



TA 

TABLE 

TAB 

TABLE 



LE <N 

LE 2 > 
LE 3 J 



TABLES 



Conte nts Bytes 

Calculated values of LMAX for phases 1, 2 § and 3 12 

respectively. 

Computed number of output sequence from phase 1. 4 

Number of bytes, plus 1, in current statement 4 

def iner. 

Actual supervisor program size. 4 

Current message length. 4 

System creation date. 6 

Ten 4-byte entries for SYS001 through SYS010 plus a 44 

4- byte end- of- table indicator. 

Byte - Channel number 

Byte 1 - Unit number 

Byte 2 - Device type 

Byte 3 - Logical unit (SYSOnn) 

Number of tracks available as given by XTENT cards. 2 

Three 7 2- byte tables for the determination 226 

of ANSI, ANS2, and ANS3, respectively, for 
orders of merge 2 through 7. 

Disk work area limits table. 88 







LOWER 
LIMIT 








UPPER 
LIMIT 




SECT 


UN# 


C 


H 


H 


R 


C 


H 


H 


R 


0000 




















000C 




















0078 




















0024 




















0030 




















0030 




















0048 




















0000 


0000 



















Appendix A 315 



Label 



TBLADD 



Contents 



A ! A ; B ! C 



i«TTT 



Bytes 
64 



TIME 
TIACFD 
TR 
TRACK 

TROVER 
TRUNDR 

TYPE 
UCYHWK 

ULLBK 

UNLAB 

UNLD 

UULBK 

VAL1 

VARBLE 

VERFY 

VOLMG 

VOLUM 

VOLUME 

WORD 

WRITE 



Eight 4- byte entries: 

A=2-byte address of first byte of compressed 
control card in CCSAVE. 

B=total number of bytes in compressed card, 

encode indicating type of card 

1=S0RT, 2=MERGE, 3=RECORD, 4=INPFIL, 

5=OUTFIL, 6=MODS, 7=OPTI0N, 8=£ND 

This is an internal record of cards processed. It 
is used to get the control card, if necessary, for 
a message printout and for scanning control cards. 

Total run time computed by trial order of merge. 

Total length of all control fields. 

Number of tracks required in logical work area. 

Total number of tracks in work area, given by user 
extent cards. 

Number of tracks not yet used in building TABLES 

Total number of tracks still required in building 
TABLEB 



Field definer: 



*TYPE tt 



Number of cylinders used in half work area computed 
by run time calculations DSORT0 09. 

XTENT lower limit, in tracks. 

Message: "UNLAB" (unlabeled) 

Message: "UNLD* (unload) 

XTENT upper limit, in tracks. 

Save area for first value calculated in TABLEF. 

Message: "VARIABLE" 

Field definer: "VERIFY" 

Message: "INPUT FILEA FILEB FILEC FILED FILEE 
FILEF FILEG FILEH FILEI" 

Field definer: "VOLUME" 

Message: "VOLUME*" 

Total number of work-area tracks computed by run 
time calculations in DSORT009. 

CCW for writing checkpoint record 



4 
2 
2 
2 

2 
2 

4 
4 

2 

5 
4 
2 
4 
8 
6 
68 

6 
7 
4 
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Label 



Contents 



Bytes 



WRT 

XTADDR 
XTAREA 



Phase 1 read and write time in excess of phase 1 
read time (RDT1) computed by run time calculations. 

Pointer to current XTENT card location- 
Storage area for up to a maximum of 6 converted 
XTENT cards: 



4 
84 



XTENT 

ZEROS 
ZD 



A 
1 


B 
1 


C 

III 


D 
III 


E 
1 


F 
| 



14- Byte Entries for each XTENT: 

A = type - 1 byte 

B = sequence - 1 byte 

C = lower limit (CCHH) - 4 bytes 

D = upper limit (CCHH) - 4 bytes 

E = class and unit - 2 bytes 

F = old bin number - 2 bytes 

XTENT card re ad- in area. 

Six full words of zeros. 

Format code M ZD" - zoned decimal 



12 
24 
2 



PHASE 1 CONSTANTS 



Label 

ADR2 

ADRBKT 

ADS AVE 

ADTAB1 

ALPHA 

ARNYAD 

BLKSZ 

BLKSZ 1 

BR4SAV 

CBYTE32 

CCB2 

CCBPR 

CCW1 

CMPL10 



Contents 

Location of disk address (D5KADR2) . 

Disk address in CCHH format. 

Starting address of current string. 

Location of address table 1. 

Constant 8. 

Starting address of conversion routine. 

Input block size from assignment phase; given by 
user. 

Maximum input block size for variable- length 
records. 

Save area for RR format branch. 

DTF byte 32 for CLOSE rewind/ no rewind option. 

Output CCB. 

System log CCB. 

System log CCW. 

Complement of 10 ( 0000FFF6) . 



B ytes 

4 

4 

4 

4 

2 

4 

2 



4 

1 

16 

16 

24 

4 



Appendix A 317 



Label 



Contents 



Byt es 



CMP ADR 



Starting address of compare string in chain. 



CMP END 
CMPLT 

CMP0F8 

CMP0F9 

DALIM 

DCCWSI 

DCCWSK 

DEVICE 

DIKEYL 

DINABK 

DINADR 

DINCCX 

DINCCY 

DINSEK 



DINXAD 

DNBTK 

DRCNT 

DSAVE1 

D SAVE 2 

DSAVE3 

DSBKT 
DSEEK 
DSHIFT 



DSKADR1 



End address of compare chain. 4 

Complement of track number 10 (OOFFF600-CHHR) ; used 4 

to calculate track number of next cylinder. 

Complement of track number (00FFFSG0-CHHR) . 4 

Complement of track number 9* 4 

Disk input area upper limit (CCHH format), 4 

Loop CCW for read input. 16 

Seek/search CCW for read input. 16 

Disk drive address. 2 

Key length (disk). 4 

Disk address of search argument of read. 5 

Address of current input block. 8 

Read count CCB. 16 

Read input CCB. 16 

Disk address in BB CC HH R format. 8 

BB = bin number (always 00) 
CC = cylinder number 
HH = read/write head 
R = number of the data record on the track 

Address of next input block. 8 

Seek/search address for 1 block per track. 8 

Work area for pack/unpack routines. 8 

Save area for level 2 register 8 

Save area for move registers. 12 

Save area for move constants (base registers G and 12 
B). 

Starting address of DSHIFT table. 4 

Output seek CCW. 8 

Output control table used for storing starting disk 96 max. 

addresses of each sequence in a set. Consists of 

up to 8 sections of 12 bytes each. See output 

routine narrative for detail description (Chart 

BG). 

Disk address in BB CC HH R D format: 8 

BB - bin number (always 00) 
CC - cylinder number (0-199) 
HH - head number (0-9) 
R - record number 
D - unused 
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Label Contents Bytes 

DSKADR2 Disk address in BB CC HH R K DL format: 10 

BB - bin number (always 00) 
CC - cylinder number 
HH - head number 

R - record number (displacement) with track 
K - keylength 
DL - data length 

DSKLIM First 4 bytes - address of input area upper limit. 8 

Second 4 bytes - address of input area lower limit. 

DSKTBL Disk number table (0 through 7, two bytes each). 16 

DSPLMT Displacement, in bytes, of current record in input 2 

block. 

DSRCH Output search CCW. 16 

DWRITE Write output block CCW. 8 

EIGHT Constant 8. 2 

ENDADDR Starting address of EOFADR (end-of-file routine). 4 

ENDPRG Indicator for end of program. 1 

EOFADR Location of end-of-file routine. 8 

EOFIND End-of-file indicator. 1 

EXITCW Seek/search checkpoint address CCW. 16 

FIBKT Upper main storage address of last record in a 4 

file. 

FILENAME File identification (FILEA ). 8 

FILES Constant ABCDEFGHI used in FILENAME, 9 

FIX2A5 Save area for general registers 2,3,4 and 5 in 16 

fixed- point conversion routine. 

FLT2A6 Save area for general registers 2,3,4,5 and 6 in 20 

floating-point conversion routine. 

FLTCP2 Hexadecimal F*s used in floating-point conversion 8 

routine. 

FSEXC Message: H 7DA3I" (see Appendix D) . 40 

HICKY Starting address of input area in main storage. 4 

IALIM End address of input area in main storage. 4 

IBVA04 Location of output area in main storage. 4 

IBVA05 Location of address table 2. 4 

IBVCMP BPT (blocks per track) complement. 2 

IBVLV1 Starting address of input area. 4 

IBVNR4 Constant 4. 2 

IBVNRB Number of sort blocks in *G W . 2 
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Label 



IBVNRV 



Contents 



Number of input volumes. 



Bytes 
2 



IBVODM 



Order of merge. 



IBVSET Number of blocks in a set ("set" is defined as the 2 
number of strings or sequences equal to the order 
of merge ) . 

IBVTAB Table for storing number of blocks per string in 16 
last pass. See text for chart BH, end-of -phase 
routine, for detailed explanation of use, 

IBVTOT Storage area for total block count. 4 

IF0R1 *\ Used in checkpoint address for 4 8 
through) conversion routines. 
IF0R7 J 

INAREA Starting address of input area. 4 

INLIM End address of input area. 4 

INMAX End of current input area. 4 

INTBYP Storage area for number of records bypassed. 4 

INTMES Message: "7DA2I" (see Appendix D) . 42 

KEYLNG Save area for key length. 2 

L1CXA3 Current record address (variable- length records) . 4 

L1CXA4 Location of address table 1 (variable- length 4 
records) • 

L1CXA5 End address of input area, 4 

L1CXA6 Address of RR format branch. 4 

L1CXA7 Upper limit of current block. 4 

L1CXA8 Location of current record count. 4 

LALADR Checkpoint seek/search disk address. 8 

LBLBASE Starting address of phase 1, used to initialize 4 
base registers. 

LBLCCB Checkpoint seek CCB. 16 

LBLCK1 Internal sort CCW. 8 

LBLSEK Seek/search CCW. 16 

LSTH Read/write checkpoint CCW. 8 

MASK10 Linkage from mainline to move routine. 4 

MAXFSZ Maximum work area size. 1 

MAYDAY Upper limit of current variable-length block. 4 
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Label 



MPASS 



NBRVOLS 



NC3BKT 

NCFBKT 

NOBG 

NOUTM 

NR003 

NR02 

NR10 

NRBLM 

NRBLS 

NRDUB 

NRPAS 

NRSEQ 

0BYTE32 

OM2 

ONEXID 

OUTRD 

OUTWT 

OV2BKT 

OV2END 

P1BASE 

PI END 

PIG 

P2CCB 

P2TBL 



Contents 



Message: "7DA5I MERGE PASSES 



Number of input volumes and files (equivalent to 
assignment phase MRGVOL) : 

Volumes/file 



1 1 1 1 

File ABCDEFGHlA 



Number of files (NBRVOLS + 9) 

Save area for read or write address in output 
routine. 

Number of input control fields. 

Number of blocks in "G", 

Constant ( OOFFFFFF) . 

Constant 3. 

Constant 2. 

Constant 10. 

Number of blocks in last order of merge. 

Number of blocks in last sequence. 

Location of number of doublets to be processed for 
level 1 sorting. 

Number of passes for merge phases. 

Number of sequences. 

DTF byte #32 for various OPEN options. 

Alternate OM bucket used in exit routine. 

Relocation factor for variable- address routine. 

Save area for compression routine read. 

Save area for compression routine write. 

Save area for general register 5 in end-of-phase 
routine. 

Save area for general register 4 in end-of-phase 
routine. 

Address of start of subroutine for building 
doublets for level 2. 

Start of checkpoint record. 

*G W count (number of records in input area). 

Read/write checkpoint CCB. 

Checkpoint disk address (BB CC HH R) . 



Bytes 

19 

10 



2 

4 
4 
2 
2 
2 
4 
4 
4 

2 

4 

1 

2 

2 

8 

12 

4 



8 
4 

16 
8 
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Label 



Contents 



Bytes 



P3SVRG 



Save area for general registers 2 and 3 in read 
checkpoint routine. 



PAKRG2 



Save area for general registers 4 through 9 in 
SIGPAK conversion routine. 



24 



PASNR 

PATCH 
through 

PATCH 

PB2BKT 

PHEND 

PKSGN2 

RAFEND 

RAFI.LE 

RCDBKT 

RCDCNT 
RCDLEN 
RCDPR 
RECLNG 

SAVREG 



5} 



SAVRG14 

SORTRL 
TAPLUA 

TCCWSK 
TINADR 
TINLST 
TINMUA 

TOTCFL 
UPADDR 
UPLIK 
USEAD2 



Pass number for checkpoint routine, 2 

Areas reserved for possible patch routine. 112 

Number of blocks in last set, 2 

Message: "7DA6I END PHASE l w . 17 

Save area for sign in SIGPAK conversion routine, 2 

Address of current RAF end. 4 

RAF start address, 4 

Number of records processed; used in end- of- phase 4 
routine. 

Number of records processed. 4 

Record length. 4 

Messages W 7DA4I RECORDS PROCESSED". 24 

Original record length. 2 

First 4 bytes - record address, 12 

Second 4 bytes - location of block size count. 

Last 4 bytes - location of record displacement, 

Save area for general register 14 in initialization 8 
of mult i- volume routine, 

Save area for sort record length. 2 

Log unit address. 2 

Work area used in read and convert routines, 8 

Disk address of current input block, 6 

Relocation factor of disk-input routine. 3 

Relocated address of call for additional- volume 4 
routine, 

Total length of input control fields. 2 

Location of address table 1, 4 

Upper limit of file on disk, 4 

User routine starting address for tape input. 4 
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label 
USE.RAD 

USADR 
VBART 

VLORST 

VLOSCN 

WKBKT 
WKTAB 

WLRBKT 

WLRCCW 

WLR ME S 

WRKBKT 

WRKCCB 

WRKCCW 

ZERO 

ZSTPAS 

ZONRG2 

ZONZN2 

ZRCNT 

ZROMSK 



Contents Bytes 

User routine starting address for disk input. 4 

Location of user routine- 4 

Work area used in input-finish f build-address # and 4 
compute- areas subroutines. 

Save area for starting address of output area in 4 
variable- length output routine- 
First 4 bytes - current address in output area, 8 
Second 4 bytes - output area upper limit. 
Work area used in exit routine 8 

Work area limit table obtained from assignment 88 
phase TABLES through the checkpoint record. 

Record length used for WLR check, 2 

CCW for Print WLR message. 8 

Message: "7DA1I" (see Appendix D) . 15 

Work area, 4 

Work area error print CCB. 16 

Work area error print CCW. 8 

Constant 0. 2 

Number of merge passes* 4 

Save area for general registers 5 through 8 in 16 
SIGZON routine. 

Storage area for signs in SIGZON routine. 2 

Number of record for print routine. 8 

Zero mask. 14 



PHASE 2 CONSTANTS 



Label 

ABEGIN >| 
through > 
GBEGIN J 

AEND >i 
through > 
GEND J 

AN8A10 



ANINV 



Contents Bytes 

Starting addresses of input sequence areas A 28 

through G in main storage. 



End addresses of input sequence areas A through G 28 
in main storage. 



Storage area for general registers 8, 9, and 10 12 
during initialization of the equal routine. 

Base register sequence (8, 7) when initializing 4 
equal routine for sequence opposite to first 
control field. 



Appendix A 323 



Label 



ANISEQ 



ANNML 



ARADDR 

through 

GRADDR 

and 

ORADDR 



Contents 

Temporary storage for control field sequence- Used 
to test for control field sequence variation when 
initializing equal routine- 
Base register sequence (7 f 8) when initializing 
equal routine for sequence same as first control 
field. 

Disk addresses for input files A through 
G and for output file (0) r as 
illustrated in Figure 52: 

Fixed-length records Variable-length records 



Bytes 
2 



a 
< 

fi4 



CHHR 



Index 
Value 



4- Way Merge 



7-Way Merge 



Logical 

Unit 

Address 



ARADDR 
BRADDR 
CRADDR 

DRADDR 



ERADDR 
FRADDR 
GRADDR 





CHHR 


Index 
Value 


Logical 

Unit 

Address 


Sequence 

Block 

Count 


























3-Way 


Merge 




























6- Way 


Merge 





















































































4 (bytes) 



/ Dummy bytes for shifting; 
added to output for all cases. 



Figure 52* 



2 2 (bytes) 

Phase 2 Disk Address Table 

♦ byte count: 7- way fixed = 120 (8 bytes per entry) 
4-way fixed = 72 (8 bytes per entry) 
6 -way variable = 156 (12 bytes per 
entry) 

3-way variable = 84 (12 bytes per 
entry ) 
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Label 



Contents 



Bytes 



ASAVE 

BBCCHH 

BCOMP 

BLOCKC 

BPT 

BPT1 

CCBPRT 

CF1LCT *\ 
through > 
CFCLCT J 

CHECKP 



CHHR 

CKPCCB 

CKPCHP "S 
through > 
R^CKPT J 

CPZERO 
EXCESS 



FOUR 



GBLOCK 



HCOMP 



This table contains the next disk address for 
all input/output sequences at any point in phase 2. 
It also contains index values (pointers to the work 
area table) for the current XTENT in which any 
given sequence disk address has been computed. The 
third entry in each subdivision (each sequence is a 
subdivision) is the logical unit address pertaining 
to each current or next sequence disk address. 

During a merge within a pass, only one output 
sequence is referred to. At the end of a merge, 
the output portion of the table is shifted up so 
that the next disk address is the address of the 
block of the new output sequence. 

Save area for register 9 in PUTA routine (7 way 4 
fixed only) . 

Seek and search address for input and output. 6 

256 complement of BPT. 2 

Current sequence block count. 4 

Number of sort blocks per track. 2 

Number of sort blocks per track, from checkpoint 2 
record. 

CCB for printing the pass number on SYSLOG. 16 

Information for control fields 1 through 12 , from 96 
checkpoint record (8 bytes each). 



Address of checkpoint track at end of work area. 4 
This address is loaded in register 3 at the end of 
phase 2 to provide retrieval of the checkpoint 
record by phase 3. 

Current disk interleave address. 4 

CCB for reading and writing checkpoint record 16 



CCW's for checkpointing every pass. 24 



Constant 00F6 for converting pass numbers to 2 

decimal. 

Maximum number of tracks by which an upper limit 2 
can be exceeded, when computing an interleaved disk 
address. Its only use is in computing the next 
disk address when an upper limit is exceeded. 

Constant 04 used to set condition code to a 2 

positive value in equal routine. 

Number of blocks in a sequence from checkpoint 4 
record (variable- length records only). 

Constant O0FFF600 (256 complement of 10); used to 2 
allow switching to another cylinder in routine for 
calculating interleave address. 
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Label 



Contents 



tytes 



IG7A8 



Save area for registers 7 and 8 in equal routine* 



IGDOEX 



Constant 18; used in equal routine. 



IGHOLD 



Save area used in equal routine for the base 
register obtained from mainline compare 
instruction. 



INDEXL 



Pointer to the extent within which the current 
address resides; used to "jump* to the next extent 
in the work area when the upper limit is exceeded. 



INPUTG 



Block count of input sequence (variable- length 
records only). 



INPUTS 



Sa^/B area for starting address of input area. The 
address can fluctuate between the value contained 
in ABEGIN-DBEGIN and an adjustment factor equal to 
the maximum record length minus one 
(variable-length records only) . 



IPTCCB 



CCB for all input sequences. Before a "get" (read) 
is issued, the CCB contains the logical unit 
address (LUB table pointer) pertaining to the block 
about to be read in and the location of the channel 
program. 



16 



LIMITS 



Table of logical unit addresses and upper and lower 
limits associated with logical and physical 
segments of the work area. Each subdivision within 
the table is a 12- byte entry. There is a minimum 
of two and a maximum of seven subdivisions within 
the table, depending upon the number of extents the 
user has allotted for the work area. 

As illustrated in Figure 53 , each entry 
contains: 



84 



Lower and upper limits of each physical extent 
(4 bytes each). 



Logical unit address associated with each work 
area extent (2 bytes). 



A hexadecimal factor (multiple of 12) used as a 
pointer or index value to each physical extent 
( 2 bytes) . 



326 IBM S/36 DOS Sort/Merge 



2 bytes 


2 bytes 


4 bytes 


4 bytes 




Logical 






0000 


Unit Address 1 


Lower Limit 


Upper Limit 


OOOC 


Unit Address 2 


Lower Limit 


Upper Limit 


0018 


Unit Address 3 


Lower Limit 


Upper Limit 


0024 


Unit Address 4 


Lower Limit 


Upper Limit 


0030 


Unit Address 5 


Lower Limit 


Upper Limit 


003C 


Unit Address 6 


Lower Limit 


Upper Limit 


0048 


Unit Address 7 


Lower Limit 


Upper Limit 



84 byte 
table in 
hexadecimal 



EXAMPLE 



Index 


Log Unit 






Value 


Address 


C-H-H-R 


C-H-H-R 


0000 


0101 


4-0-1-0 


9-0-5-0 


OOOC 


0103 


6-0-0-0 


A-0-7-0 


0018 


0103 


A-0-7-0 


14-0-8-0 


0000 


0000 


0-0-0-0 


0-0-0-0 


0000 


0000 


0-0-0-0 


0-0-0-0 


0000 


0000 


0-0-0-0 


0-0-0-0 


0000 


0000 


0-0-0-0 


0-0-0-0 



54 Tracks 

47 Tracks 

101 Tracks 

101 tracks 
in each half 
of work area 



User's extents for work area 



2 Extents 



Symbolic Unit 
Address 


CCHH 
Lower Limit 


CCHH 
Upper Limit 


SYSOOl 
SYS003 


0-4-0-1 
0-6-0-0 


0-9-0-4 
0-21-0-0 



54 Tracks 
151 Tracks 
205 Tracks 

- 3 Tracks for checkpoint 
202 Tracks available 



Figure 5 3. Phase 2 Limits Table 



LMALSB 



Checkpoint record format: 

Number of passes - 2 bytes 

Number of sequences from phase 1 - 4 bytes 

Number of blocks in last merge, pass 1-4 bytes 

Number of blocks in last sequence, pass 1-4 bytes 

Number of records processed in phase 1-4 bytes 

Number of blocks in G - 4 bytes 



22 



LMBLOK 



Counter for the number of output blocks written 
during a pass when S < M 2 . This count (at the end 
of a pass) contains the number of blocks that will 
be in the last merge of the next pass. This count 
is moved to LMSTRG which in turn is used in 
calculating when the output interleave factor is to 
be reduced (if at all) during the next pass. 



LMSTRG 



Counter used to determine when (if at all) the 
output interleave technique is to be reduced during 
a phase 2 pass. At the start of a pass, it is 
initialized with a count equal to the number of 
blocks contained in the last merge of a pass; that 
is, the number of input blocks remaining when S<M. 
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Label 



LOG PHY 



LSTRG1 

through 

LSTRG6 



■} 



Contents Bytes 

Whenever S<M 2 , a check is initiated to see if the 
output interleave echnique has to be reduced. The 
reduction is made after the number of blocks 
written to a sequence is 1 greater than the number 
of blocks contained in the last merge (M or less 
input sequences). 

Table of physical work-area limits obtained from 88 
the checkpoint record; used in LIMITS table, (From 
TABLEB in assignment phase.) 

A maximum of six a -byte counters used in computing 24 max- 

the interleave factors for sequences: 

LSTRG1 - A through F (7-way fixed) 24 

LSTRG6 

LSTRG1 - A through C (4-way fixed) 12 

LSTRG3 



LSTRG1 - A through E (6- way variable) 

LSTRG5 



20 



LSTRG1 - A and B (3-way variable) 
LSTRG2 

These counters are used when it is determined that 
the interleave factors are to be reduced. 



M 
MAXFA.C 



Note: The input interleave factor for the last 
sequence of a pass is not reduced. In a 
7- way merge, for example, the input 
interleave factor is not reduced for 
sequence G, and a counter is not required. 

Phase 2 order of merge. 

A 2-byte constant which is used in conjunction with 
the interleaving of output sequences during a given 
pass. At the beginning of each pass, this constant 
is initialized with the number of merges which must 
be performed before any attempt is made to reduce 
the factors used in calculating output interleaved 
disk addresses, At the beginning of each merge 
within a pass, this constant is decremented by one. 
When the count reaches zero, the upcoming merge is 
notified that a check is to be undertaken for 
reducing the interleave technique associated with 
each output sequence. The count in MAXFAC cannot 
reach zero until S (number of input sequences) 
reaches a level that is equal to less than the 
order of merge squared (S<M 2 ). 
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Label 



MERGEL 



M0V1 



MOV 6 



MOVIND 



MOVLN6 



MOVMSK 



NOPASS 



NQUOT 



NRMDR 



Contents Bytes 

The number of blocks contained in the last (input) 4 
sequence of a pass. It is moved to counters LSTRGl 
- LSTRG6 which in turn are used in computing when 
the input interleave factor is to be reduced, if 
necessary. Because the number of blocks in the 
last merge of a pass becomes the number of blocks 
in the last sequence of the next pass, MERGEL does 
not have to be computed. 

Constant 0001? used during initialization of the 2 
move routine for fixed- length records. 

Constant 000 6 used as the instruction length 2 

multiplier during initialization of the move 
routine for fixed- length record- 
Save area for registers 8, 9, and 10 during 12 
initialization of the move routine. 

Input record length (LI) obtained from the 4 

checkpoint record (SORTRL); used during 
initialization of the move routine. 

Constant 255; used during initialization of the move 4 
routine. 

Initially contains the number of passes to be 2 

performed by phases 2 and 3. This counter is 
decremented at the start of every pass. When the 
counter reaches zero, phase 3 will be called in. 
Example: 

NOPASS = 2-start of 1st pass, 
= 1- start of 2nd pass, 
= 0- fetch phase 3 

The quotient of M/BPT. It is used in computing the 7 max 
head or track number (the value for the second H of 
CHHR) of interleaved disk addresses (also see NRMDR 
and example) . 

Remainders obtained when dividing the order of 7 max 
merge (M), order of merge minus one (M-l) , etc., by 
the number of sort blocks per disk track. Used for 
computing the record numbers (R value in BBCCHHR) 
of each interleaved disk address associated with a 
sequence, both on input and output. 



Example: 



NQUOT NRMDR 



1 







(M/BPT) 
(M-l/BPT) 
(M-2/BPT) 
(M-3/BPT) 
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Label 



Contents 



Bytes 



NSR 



Output sequence counter used to initialize the 
input sequence counter tSR) at the beginning of 
each pass. NSR is then initialized with the number 
of output sequences which will be created during 
the upcoming pass (this value is derived by 
dividing the number of input sequences by the order 
of merge and rounding high). 



0BEGIN 



Starting address of output area in main storage* 



OCCB 

OMERGE 

ONE 

OPTWKA 

ORADDP 

ORADDR 

OUTEND 
OUTPTG 
OUTRLI 

PASSNO 

P.B2IOM 
PH2PASS 
PH4 2PAS 

PH3CST 

POINT I 

POINTL 



CCB for writing merged output on disk or tape* 16 
Functions in the same manner as IPTCCB* 

Equated with PH2I0M; used for end-of-merge 2 

indicator 

Constant 0001; used for incrementing sequence and 2 
block counters. 

Indicator for sort output in work area; used to 2 
test for an extra copy pass if the final output is 
to be in the work area* 

Temporary storage area for output address and unit, 12 

Output disk address table for sequences A through 84 max 
G* Same format as input , plus 8 bytes for 
shifting- See phase 2 constant ARADDR for table 
illustration. 

End address of output area in main storage. 4 

Block count of output sequence* 4 

Used to extract the length of the current record 4 
(which may be a split record) about to be moved to 
the output area or to slti input overflow area* 

Pass number (in decimal) from key portion of 2 

checkpoint record; used for restart. 

Phase 2 order of merge* 2 

See PH42PAS* 17 

Message: "PHASE 2, PASS 00". 17 

00 will be replaced by the appropriate pass number 
before message is printed. 

Address of IPTCCB; used to initialize channel 4 

program (RWCKPT) to write constants for phase 3 on 
checkpoint track. 

Pointers (contained in checkpoint record) to the 4 
logical halves of the work area; used to initialize 
POINTL. 

Two hexadecimal pointers (plus two bytes for 6 

shifting) which indicate the starting points of the 
two halves of the work area. At the start of every 
pass, after the initial input addresses have been 
computed, these pointers are reversed (shifted) and 
the initial output addresses are computed * 
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Label 
PPCCB 

PPCHPG "N 
through > 
RDWTPP J 

PRTPH2 

QUOT 



RDCHPG- 
RDCCW 



REC256 

RLCOND 
RLINDE 



RLINVR • 
RLINVS 



RLISA 



RLNG1 



RLNG2 



RLREC, 



RLSAVE 



RLSVED 



RMDR 



RSTCCB 
SAVE45 

SAVPUT 

SFREG 

SORTL 



Contents Bytes 

CCB for writing PASS-PASS routine on the checkpoint 16 
track, 

CCW for reading and writing pass-pass routine 24 

on checkpoint track, 

CCW for printing messages on SYSLOG 8 

Used in computing the next head or track number (H 2 
value of CHHR) in compute interleave address 
routine. Similar in function to RMDR, 

CCW f s for reading interleaved disk blocks into 32 
storage. 

Constant 256; used for moving a record or a split 2 
record in the variable- length move routine. 

Optional routine indicators. 2 

Save area for registers 4 through 10 in re locator 28 
routine. 

Constant 00C0; used to initialize registers in 2 each 
relocator routine. 

Address of first byte of main storage following the 4 
relocated routines and available for the I/O area. 

Original starting and ending addresses of the 8 

optional routines. 

Modified starting and ending address of required 8 
optional routines. 

Constant FFFFFFFD; used to round optional routine U 
lengths to full word boundary. 

Save area for registers 5, 6, and 7 in relocator 12 
routine. 

Area used in conjunction with RLSAVE to store the 4 
contents of registers in the relocator routine, 

2-byte field initialized each time an input/output 2 
interleave address is to be computed. When an 
interleaved disk address is computed, this field is 
added to the R value of the last address associated 
with an input/ output sequence, RMDR is used only 
in computing the record number of the next disk 
address. 

CCB for checkpointing every pass. 16 

Save area for general registers 4 and 5 8 

(variable- length records only). 

Current address of the main storage output area 4 
(variable- length records only). 

Save area for register 15 in routine that computes 4 
when the input inerleave factor is to be reduced. 

Sort block size obtained from the checkpoint 2 

record. 
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Label 



SORTRL 



SR 



SYMADR 



TEN 



WTCHPG -* 
WTCCW 



Contents 



LI , Input record length - 2 bytes 

L2 - 2 bytes (not used by sort program) 

L3, Output record length - 2 bytes 

L4, Minimum record length - 2 bytes 

Output block size - 2 bytes 

Phase 3 or 4 exit indicator - 1 byte 

Record type and output rewind options - 1 

Key length of user record - 1 byte 

Options (VERIFY, BYPASS, ADDROUT, RESTART) 



Bytes 
14 



byte 
- 1 byte 



The number of input sequences within a pass* 
During a pass, SR is decremented by the order of 
merge (M) at the start of every merge. At the 
start of every pass, SR is initialized with the 
number of output sequences created during the 
previous pass. 

Logical unit <LU3) address; used to compute an 
interleaved disk address- Its function is similar 
to that of INDEXL whenever an upper limit is 
exceeded; i.e., the logical unit address of the 
next extent is extracted from the LIMITS table and 
placed in SYMADR which, in turn, is placed in the 
address entry, ARADDR through GRADDR or ORADDR, 
depending upon which sequence address has " jumped w 
to the new extent. 

Constant FF000A00; used to determine the new input 
disk address when a logical upper limit has been 
exceeded. 

CCW's for writing the merged output onto disk. 
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PHASE 3 CONSTANTS 



Label 

ABEGIN ^ 
through > 
GBEGIN J 

AEND ^ 
through > 
GEND J 

AN8A10 



ANINV 



ANISEQ 



ANNML 



Contents 

Starting addresses of input sequence 
areas A through G in main storage. 



End addresses of input sequence areas 
A through G in main storage. 



Storage area for general registers 8, 9, and 10 
during initialization of the equal routine. 

Base register sequence (8, 7) when initializing 
equal routine for sequence opposite to first 
control field. 

Temporary storage for control field sequence. Used 
to test for control field sequence variation when 
initializing equal routine. 

Base register sequence (7, 8) when initializing 
equal routine for sequence same as first control 
field. 



Bytes 
28 

28 

12 
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Label 



Contents 



Bytes 



ARADDR ^ 
through > 
GRADDR J 



Disk addresss for input files A through G. 
(See Figure 54.) 



Fixed-length records 



CHHR 



Index 
Value 



Sys 

Unit 

Addr 



4- Way Merge 



7-Way Merge 



ARADDR 

BRADDR 
CRADDR 
DRADDR 



ERADDR 
FRADDR 
GRADDR 



Variable-length records 





CHHR 


Index 
Value 


Sys 
Unit 

A<ttr 


Block 
Count 

















3-Way Merge 



















6-Way 


Merge 















4 2 2 (bytes) 

Figure 54. Phase 3 Disk Input Address Table 



(bytes) 



♦ byte count: 



7- way fixed = 56 

4-way fixed = 32 

6 -way variable = 

entry) 

3 -way variable - 

entry) 



(8 bytes per entry) 
(8 bytes per entry) 
7 2 (12 bytes per 

36 (12 bytes per 



This table contains the next disk address for 
all input sequences at any point in phase 3. It 
also contains index values (pointers to the work 
area table) for the current XTENT in which any 
given sequence disk address has been computed, The 
third entry in each subdivision (each sequence is a 
subdivision) is the logical unit address pertaining 
to each current or next sequence disk address. 



AS AVE 



Save area for register 9 in PUT1 routine (7-way 
fixed only). 



BADREPLY CCB for printing message: "7DC2A INVALID RESPONSE" 16 
(see Appendix D). 

BBCCHH Seek and search address for disk input and output, 6 

BOOMP 256 complement of BPT, 2 

BLKOUT Output block size, 2 

BLX537 Value 537 used in computing the area of a 2311 2 

track that will be used in writing a 
variable-length block (record) onto a track. It 
applies only to disk output, 

BPT Number of blocks per track, 2 
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Label 



BPTO 



CANCEL 



Contents 



Number of blocks per track in phase 3 output. 
Upper case compare constant for "CANCEL" reply. 



Bytes 
2 



CANS EL 



Lower case compare constant for "cancel" reply. 



CCBCKP 
CCBEOJ 
CF1LCT 

CHECKP 



CHHR 
CKPTRD 



COONTR 



CTDLDL 
DECMAL 

EIGHT 

EOJPRT 
EOJPRT2 



CCB for reading checkpoint record. 16 

CCB for printing end-of-job message on SYSLOG. 16 

Checkpoint record data for control fields 1 through 96 

12 (8 bytes each). 

Address of the checkpoint track obtained from 4 

general register 3 at the start of phase 3, and 
used for: 

• reading the checkpoint record (constants passed 
from phase 2 to phase 3) into main storage. 

• checkpointing the program for open, close, and 
FEOV conditions; in conjunction with this 
function, CHECKP is used to read in the label 
linkage routine (LLR) and the exit 31 routine. 

Current disk interleave address. 4 

Data from key portion of checkpoint record: 16 

• Pass number (in decimal) for restart - 2 bytes 

• Number of passes - 2 bytes 

« Number of sequences from phase 1-1 bytes 

• Number of blocks in last merge (pass 1 of phase 
2) - 4 bytes 

» Number of blocks in last sequence (pass 1 of 
phase 2) - 4 bytes 

Contains a decreasing record count during phase 3. 4 

The initial count is the number of records 
processed in phase 1. Every time a record is moved 
to the output area, this count is decremented by 
one. Note : Applicable only to 7- way fixed and 
6 -way variable. 

Output data length for a disk record. 2 

Double word used in converting the number of 8 

records sorted into decimal format for printing 
end-of-job messages. 

Constant 8; used in adjusting to the starting 2 

location of the output area in storage. It is used 
to "jump" to the location where the first record is 
to be moved to each output block in storage. 

CCW's for printing end-of-job messages on SYSLOG. 16 

Location of CCW*s for printing end-of-job messages. 4 
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Label 
EOV 

EX3231 
EXCESS 



FFFFO 

FLTCP2 

FORMAT 

FOUR 

HCOMP 

IG7A8 
IGDOEX 

IGHOLD 

IGNOR 

IGNORE 

INDEXL 

INVALID 
IOLAB 



IPTCCB 



Contents Bytes 

End-of -volume indicator (V-character) for tape 1 

output only* 

Exits 32 and 31 indicators* 1 

feximum number of tracks by which an upper limit 2 

can be exceeded, when computing an input 
interleaved disk address. Its only use is in 
computing the next disk address when an upper limit 
is exceeded. 

Constant used to invert control field digits in 16 

packed- decimal reconversion routine. 

Constant used to invert control field digits in the 8 

floating-point reconversion routine. 

Format and number of control fields, obtained from 2 
the checkpoint record. 

Constant 04; used to set condition code to a 2 

positive value in equal routine. 

Constant 00FFF600 (256 complement of 10); used to 2 
allow switching to another cylinder in routine for 
calculating interleave address. 

Save area for registers 7 and 8 in equal routine. 8 

Constant 18; used in equal routine. 2 

Save area used in equal routine for the base 2 

register obtained from mainline compare 

instruction. 

Lower case compare constant for "ignore" reply. 6 

Upper case compare constant for "IGNORE" reply. 6 

Pointer to the extent within which the current 2 
address resides; used to "jump" to the next extent 
in the work area when the upper limit is exceeded. 

CCW for printing message: "7DC2A INVALID RESPONSE" 16 
(see Appendix D). 

Type of output and type of output labels. 2 

Byte 1: nl - tape output 

61 - nonstandard or unlabeled 
21 - nonstandard 
41 - unlabeled 

Byte 2% 01 ' - 1052 is assigned to SYSLOG. 

CCB for all input sequences. Before a "get" (read) 16 
is issued, the CCB contains the logical unit 
address (LUB table pointer) pertaining to the block 
about to be read in and the location of the channel 
program. 
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Label 



Contents 



Bytes 



KEY 



Key length of user record for disk output. 



LIMITS 



Table of logical unit addresses and upper and lower 
limits associated with logical and physical 
segments of the work area. Each subdivision within 
the table is a 12-byte entry. There is a minimum 
of two and a maximum of seven subdivisions within 
the table , depending upon the number of extents the 
user has allotted for the work area. 



84 



Each entry contains: 

Lower and upper limits of each physical extent 
(4 bytes each). 

Logical unit address associated with each work 
area extent (2 bytes) . 

A hexadecimal factor (multiple of 12) used as a 
pointer or index value to each physical extent 
(2 bytes). 



2 bytes 


2 bytes 


4 bytes 


4 bytes 


0000 


Logical Unit Address 1 


Lower 


Limit 


Upper 


Limit 


OOOC 


Logical Unit Address 2 


Lower 


Limit 


Upper 


Limit 


0018 


Logical Unit Address 3 


Lower 


Limit 


Upper 


Limit 


0024 


Logical Unit Address 4 


Lower 


Limit 


Upper 


Limit 


0030 


Logical Unit Address 5 


Lower 


Limit 


Upper 


Limit 


003C 


Logical Unit Address 6 


Lower 


Limit 


Upper 


Limit 


0048 


Logical Unit Address 7 


Lower 


Limit 


Upper 


Limit 



8 4- byte table in hexadecimal 



EXAMPLE 



Index 


Log Unit 


C-H-H-R 


C-H-H-R 


Value 


Address 






0000 


0101 


4-0-1-0 


9-0-5-0 


OOOC 


0103 


6-0-0-0 


A-0-7-0 


0018 


0103 


A- 0-7-0 


14-0-8-0 


0000 


0000 


0-0-0-0 


0-0-0-0 


0000 


0000 | 


0-0-0-0 


0-0-0-0 


0000 


0000 


0-0-0-0 


0-0-0-0 


0000 


0000 


0-0-0-0 


0-0-0-0 



54 tracks 
47 tracks 
101 tracks 



101 tracks in each half of work area 
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Label 



Contents 



Bytes 



LIMITO 



LINKRT 



LOG ADR 

LSTRG1 

through 

LSTRG6 



■} 



Upper limit of the current disk output extent. If 4 
the upper limit is exceeded, an OPEN must be issued 
to retrieve the next set of extents. For tape 
output, the constant is used in compiling the block 
count to be inserted in the trailer label. 
(Standard labels only*) 

80- byte area reserved for IOCS to read the standard 80 
tape label block into main storage when processing 
standard tape file labels * 

Logic module address in tape DTF, 4 

A maximum of six 4 -byte counters used 24 max. 

in computing the interleave factors for 

sequences: 

LSTRG1 - A through F (7-way fixed) 24 

LSTRG6 



LSTRG1 - A through C (4-way fixed) 
LSTRG3 



12 



LSTRG1 - A through E (6-way variable) 
LSTOG5 



20 



LSTRG1 - A and B (3 -way variable) 8 

LSTRG2 

(See note following LSTRG1-LSTRG6 in the phase 2 

constants. ) 

MESEOJ Message: "7DC5I END OF SORT*. 17 

MESEOJ2 Location of end-of-job message (MESEOJ). 4 

MNLADR Address of CCW's for reading and writing the 4 

label- linkage routine. 

MN.LCCB CCB for checkpointing mainline prior to label 16 

processing. 

MOV1 Constant 0001; used during initialization of the 2 

move routine for fixed- length records. 

MOV6 Constant 0006; used as the instruction length 2 

multiplier during initialization of the move 
routine for fixed- length records. 

MODADDR Logic module address in disk DTF. 4 

MOVIND Save area for registers 8, 9, and 10 during 12 

initialization of the move routine for fixed-length 
records. 



MOVLNG 



Input record length (LI) obtained from the 
checkpoint record (SORTRL) ; used during 
initialization of the move routine for fixed- length 
records. 



MOVMSK 



MOVRES 



Constant 255; used during initialization of the 
move routine for fixed- length records. 

Save area for the calculated number of moves; used 
during initialization of the move routine for 
fixed- length records. 
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tobel 



Contents Bytes 



NOPH3C 



Main storage address and the byte count for reading 7 
in constants being passed from phase 2 to phase 3. 



OBEGIN 



Starting address of output area in main storage. 4 



OCCB 



ONE 



OPEN 



ORADDR 



OUTBKX 



OUTEND 



0UTEND1 



OUTRDL 



PDIGITS 

PH3 4EX 
PH3IOM 

PH3REG 
PKSGN2 



CCB for writing merged output on disk or tape. 16 
Functions in the same manner as IPTCCB. 

Constant 0001; used for incrementing sequence and 2 
block counters. 

Indicator for the label-linkage routine that an 1 
"OPEN" is to be issued to the output file. 

Current 2311 address of the output file on disk. 4 
At the start of phase 3, it contains a value which 
will force the initial "OPEN 1 * of the output file 
before the first output block is written onto the 
disk output area. 

Output block length (for fixed-length records), or 2 
maximum output block length (for variable- length 
records ) . 

End address of output area in main storage. 4 

Note : This address may be replaced by a lower 

value after an output block has been written 
on disk when processing VLR only . 

OUTEND will contain the original value (OUTEND1) 
at least until the first block has been built and 
the amount of track capacity that will remain has 
been calculated. If this amount is less than the 
maximum output block size, the output area is 
truncated to equal the track capacity remaining, 
and the end address of the truncated output area is 
inserted in OUTEND for testing the next record. 

For processing variable- length records only, the 4 
original end address of the main storage output 
area (OUTEND) is stored in OUTEND1, which can then 
be used to restore the truncated output area to its 
original size. 

Output record lengths: 2 

First 2 bytes - output record length (fixed-length 
records) or maximum output record length 
(variable-length records). 

Save area for shifted control data in 16 

packed -decimal reconversion routine. 

Name of phase 3 user routine. 4 

Phase 3 order of merge (the number of sequences 2 
remaining at the beginning of phase 3). 

Same as first CCW in RDCHPG. 4 

Temporary storage area for sign bits in the 2 

packed- decimal reconversion routine. 
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Label 



Contents Bytes 



QUOT 



Used in computing the next head or track number (H 2 
value of CHHR) in compute interleave address 
routine. Similar in function to RMDR. 



RDCHPG -1 
RDCCW J 



CCW*s for reading interleaved disk blocks 
into storage. 



32 



RDCKPT -1 
CKPCCW > 



RECMES 

RECMES2 

RECPH1 

REPLY 

REPLY BAD 
REWIND 



RIADRU 

RLCOND 

RLEMG 

RLINDE 



RLINVR ' 
RLINVS - 



RLIOUT 
RLISA 

RLKOTO 
RLNG1 
RLNG2 
RLREC2 

RLRSVE 
RLSAVE 

RLSVED 



CCW's for reading in the checkpoint record 32 

and the record containing applicable constants. 
Used during initialization of phase 3. 

Message: "7DC4I RECORDS PROCESSED 0000000". 31 

Address of message contained in RECMES 4 

Number of records processed in phase 1, obtained 2 
from checkpoint record. 

Operator's response (in characters) to messages, if 6 
SYSLOG is a 1052. 

Message: "7DC2A INVALID RESPONSE" (see Appendix D) . 

Rewind options for tape output: 1 

10 - RWD (rewind) 

04 - RWD UNLD (rewind unload) 

01 - NORWD (no rewind) 

Starting address of original optional routines in 4 
phase 3 relocator. 

Area for optional routine indicators. 2 

Length of compare set. 4 

Save area for registers 4 through 10 in relocator 28 
routine. 

Constant 00C0; used to initialize 2 each 

registers in relocator routine. 2 

Overlays BLOCK C from phase 2. 4 

Address of first byte of main storage following the 4 
relocated routines and available for the I/O areas. 

Constant 16; used to test for last selector. 4 

Table of original optional routine lengths. 24 

Table of modified optional routine lengths. 24 

Constant FFFFFFFD; used to round optional routine 4 
lengths to full word boundary. 

Save area for zone bits in relocator move routine. 2 

Save area for registers 5, 6, and 7 in relocator 12 
routine. 

Area used in conjunction with RLSAVE to store the 4 
content of registers in the relocator routine. 
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Labe 1 



RMDR 



Contents 



2- byte field initialized each time an input 
interleave address is to be computed. When an 
interleaved disk address is computed, this field is 
added to the R value of the last address associated 
with an input sequence. RMDR is used only in 
computing the record number of the next disk 
address. 



Bytes 
2 



SAVE10 



Save area for general register 10 in the record 
count routine (7-way fixed only). 



SEQCCB 

SEQCCW 

SEQMES 
SLINK 

SORTL 

SORTRL 
SYMADR 



TADCON 



TC3633 



TEN 



TKLEFT 



USADDR 



USERINFO 



CCB for printing sequence- error message and for 
reading reply on SYSLOG. 

CCW's for printing sequence error message and for 
reading reply on SYSLOG. 

Message: "7DC2D SEQ. ERROR" (see Appendix D). 

Save area for the contents of the linkage register 
(14) before entering user exit 32. 

Sort block size, obtained from the checkpoint 
record . 

LI, input record length. 

Logical unit (LUB) address; used to compute an 
interleaved disk address. Its function is similar 
to that of INDEXL whenever an upper limit is 
exceeded; i.e. , the logical unit address of the 
next extent is extracted from the LIMITS table and 
placed in SYMADR which, in turn, is placed in the 
address entry, ARADDR through GRADDR or ORADDR, 
depending upon which sequence address has "jumped" 
to the new extent. 

Address of CCW for writing merged output onto tape 
or disk. 

Constant 3633, the 2311 track capacity in bytes for 
writing disk output. The track capacity is 
actually 3625, but the same result is achieved in 
phase 3 by increasing the value eight bytes. 

Constant FF0OOAO0; used to determine the new input 
disk address when a logical upper limit has been 
exceeded - 

Counter for computing the remaining area on a 2311 
track. Every time a record is written onto the 
disk file, this counter is adjusted to indicate how 
many bytes remain on a track. 

Main storage address of the user programming (if 
any) in phase 3. It is used to link the sort 
program to exit 31 and exit 32. 

• Output record length <L3) - 2 bytes 

« Input record length (LI for fixed or 

variable-length records, or control field 
length plus 10 for ADD ROUT records) - 2 bytes 



16 
16 

16 

4 
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Label 



Contents 



Bytes 



Label type, ADDROUT option, format and record 
type - 1 byte 

Control field 1 length minus 1-1 byte 

Control field 1 displacement within record - 2 
bytes 



VBPRC 



- 


- 


- 


V 


B 


P 


R 


C 



WRMAIN 



WTCHPG ^ 
through \ 
WTCCW J 

X31IND 

ZONZN2 



V - VERIFY option (disk only). 

B - BYPASS (tape input for sort, tape input or 
output for merge) . 

P - PRINT option, 

R - ADDROUT option (disk input only) - 

C - RESTART option (sort only). 

For open, FEOV, and close conditions, this channel 32 
program will checkpoint phase 3, read in the 
label- linkage routine, checkpoint the label -linkage 
routine after the condition has been satisfied, and 
restore phase 3 for further processing (if 
warranted). 

CCW*s for writing the merged output onto 56 

disk or tape (only WTCCW is used for tape 
output). Also used to verify disk output. 

Open, close, FEOV, or sequence- error indicator 1 

Temporary storage for sign bit in the zoned-decimal 2 
reconversion routine. 



PHASE 4 CONSTANTS 



Label 

ABEGIN >v 
through V 
DBEGIN J 

ACCB ^ 
through > 
DCCB J 

ADD 2 

ADDRINP * 

ADDROUT * 



Contents Bytes 

Starting addresses of input areas in main 16 

storage for files A, B, C, and D, respectively. 



Command Control Blocks for input files A through D. 6 4 

Disk address of the checkpoint. 7 

Address of FILE A CCB. 4 

Address of output CCB. 4 



♦Appears in DSORT401 only. 
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Label 



AEND ^ 
through \ 
DEND J 

AN8A10 



ANINV 



ANISE Q 



ANNML 



ARADDR >| 
through > 
DRADDR J 

BASE11 ♦♦ 

BBCCHH 



BCOMPO 

BLKINP 
BLX537 

BPTO ** 
BYPCCB * 
BYPCCW * 
BYPMES * 

CCB1 



CCBEOJ 

CCBTAB 
through 

SEARCH 

CCOUNT 



- ) 

+31J 



Contents Bytes 

Ending addresses of input areas in main storage for 16 

files A, B, C, and D, respectively* 

Storage area for general registers 8, 9, and 10 in 2 
initialization of the equal routine. 

Base register sequence (13, 12) when initializing 4 
equal routine for sequence opposite to first 
control field. 

Temporary storage for control field sequence. Used 2 
to test for control field sequence variation in 
equal routine initialization. 

Base register sequence (12, 13) when initializing 4 
equal routine for sequence same as first control 
field. 

Current disk address and extent upper limit for 32 
each file (A r B f C, and D) . 

Starting address of phase 4 overlays. 4 

Part of disk seek address. When combined with 3 
CHER, forms the disk seek address for the 2841 
control unit. 

256 complement of the maximum number of output 2 
blocks per track (BPTO). Used only for disk 
output, fixed length records. 

Input block length of fixed blocks or maximum block 2 
size of variable blocks. (See INPBKL. ) 

Constant 537 used in computing the area of a 2311 2 
track that will be used in writing variable length 
block (record) onto a track. It applies only to 
disk output. 

Number of blocks per track in phase 4 output. 2 

Command control block for printing bypass message. 16 

CCW for printing bypass message. 8 

Message: M 7DD4I PEASE 4 UNREADABLE BLOCKS BYPASSED 46 
00000". (The zeros are replaced by the number of 
blocks bypassed. ) 

CCB for writing initialized open/ close routine on 16 
the second track of the disk work area. 

CCB for printing messages on SYSLOG. 16 

For reading in the assignment phase table. 56 



Count field for current input block (CCHHRKLDLDL) . 
Used for disk input only. 



♦♦Appears in both both DSORT401 and DSORT402. 
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La bel 



CWl^ 

° f 

CW2 J 



CCWl 

t 

CCW2 



CF1LCT ** 

CBHR 

CHKCCB 

CHKCCW 

CHKPT 
COUNT ** 

DECMAL * 



DISK1 



•} 



DISK2 
DTFADDR * 
EOFDK * 

EOFTP * 

EOJPRT * 
ERRCT 
FILETYPE * 
FI.XDRL 

FORMAT ** 

HCOMP 

IGDOEX 
IGHOLD 



Contents Bytes 

CCW chain for writing initialized open/ close routine 32 
on disk. 



Checkpoint record data for control fields 1 through 96 
12 (8 bytes each). 

Computed current 2311 disk address* 4 

CCB for checkpoint CCW (CHKCCW). 16 

CCW's for seek, search, read, and write checkpoint 32 

for open or close conditions. 

Constant: /// CHKPT // 12 

In DSORT401, count for the format of the checkpoint 80 

record and area for labels processing. 

In DSORT402, count of next record. 8 

Double word used for converting the number of 8 

records merged to decimal form when printing bypass 
and end-of-job messages. 

Disk addresses used in seek and search CCW's. 4 

4 

Address of DTF for OPEN and CLOSE macros. 4 

Address of CLOSE macro for input file at end-of~ 4 

file time for disk; equated to EOFTP. 

Address of macro to close input file at end-of-file 4 

time for tape. 

CCW's for printing end-of-merge messages. 16 

Count of unreadable blocks bypassed. 2 

File information for user during exit 41. 4 

Input record length of fixed length records or 2 

maximum length of variable records. (See SORTRL. ) 

Format and number of control fields obtained from 2 

checkpoint record. 

256 complement of ten. Used for computing next 4 

output disk address for variable- length records. 

Constant 18 used in equal routine. 2 

Save area used in equal routine to hold register 2 

number of the base register obtained from mainline 
compare instruction. 
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Label 



Contents 



Bytes 



INPBKL 



Input block size (maximum input block size for 
variable- length records) from checkpoint record. 



INOUT 



Equivalent to assignment phase INPUTMRG through 
INPUTMRG+4. 



KEY ** 



First byte ; Key length 



LA.BEL 
LENGTH * 

LIMITO 

LOGUNIT * 

MASK 

MESl * 
MES2 * 
MESH * 
MES22 * 
MESEOJ * 

MRGVOL ** 



NOOPR 

OCCB 
OM ** 

OMERGE * 

ONE 

ORABDR 



Second byte ; 

Bit 1 - unused. 

Bit 2 - NOTPMK before first tape output record 

Bit 4 - VERIFY option; disk output only 

Bit 4 - BYPASS option; tape input only 

Label type indicator 1 

Length of initialized open/ close routine written on 4 
disk* 

Upper limit of the current disk output extent* 4 

Equals ORADDR+4. 

Current logical unit address for work area* 4 

Constant FFFFFFFC; used to create a full word 4 

boundary for the output area. 

Upper case compare constant for "IGNORE" reply. 6 

Upper case compare constant for "CANCEL" reply. 6 

Lower case compare constant for "ignore" reply. 6 

Lower case compare constant for "cancel" reply. 6 

Second part of end-of-job message in 18 

DSORT401; "7DD6I END OF MERGE". Also see RECMES. 

Number of volumes and files for merge from 10 

assignment phase checkpoint record: 



FILE 
Number of 
volumes 
per file 



Total number of files 



4 
(MRGVOL+9) 

2 



4700; used to change branch instructions to no-ops 
during initialization for fixed-length records on 
input. 

Command control block for output file. 16 

Phase 4 order of merge, from checkpoint record (see 2 
assignment phase label FILES). 

Phase 4 order of merge. 4 

Constant 1; used in calculations- 1 

Current disk address of the output file. 4 
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Label 



OUTBKL ** 



OUTEND 



Contents 

Output block size (maximum output block size for 
variable- length records). 

End address of output area in main storage. 



Bytes 
2 



Note : This address may be replaced by a lower 

value after an output block has been written 
on disk when processing VLR only . 

OUTEND will contain the original value 
(0UTEND1) at least until the first block has 
been built and the amount of track capacity 
that will remain after it is written has 
been calculated. If this amount is less 
than the maximum output block size, the 
output area is truncated to equal the track 
capacity remaining, and the end address of 
the truncated output area is inserted in 
OUTEND for testing the next record. 

0UTEND1 For processing variable- length records only, the 
original end address of the main storage output 
area (OUTEND) is stored in 0UTEND1, which can then 
be used to restore the truncated output area to its 
original size. 

OUTLGN Output record length of fixed- length records or 

actual length of variable records. (See OUTRDL. ) 

OUTOPT ** Record type and output label option; equated to 

TYPREC: 

Bit - Variable- length records 
Bit 1 - Fixed- length records 
Bit 2 - OPEN RWD 
Bit 3 - OPEN NORWD 
Bit 4 - not used 
Bit 5 - CLOSE UNLOAD 
Bit 6 - CLOSE RWD 
Bit 7 - CLOSE NORWD 

OUTRDL ** Output record lengths: 

First 2 bytes - output record length (fixed-length 
records) or maximum output record length 
(variable-length records). 

Second 2 bytes - minimum variable- length record. 

OUTRLI Length of record to be moved to output area. 

OVF Characters O, V, and F; used to indicate open, end 

of volume, and end of file, respectively. 

PH2I0M Merge status indicator. 

PH2M0M Equated to PH2I0M. 

PH34EX ** Phase 4 user exit number 
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Label 



Contents 



Bytes 



PH4NAME ** 
PKSGN2 



R1CTOD 

and 

R2CTWD 

RCOUNT 



} 



RDCCW 

RDCHPG 
READTP 

REC256 

RECMES * 

RLADRU 

RLCOND 
RLEMG 

RLINDE 



RLINVR 
RLINVS 



RLISA 

RLKOTO 
RLNG1 
RLNG2 
RLREC2 

RLRSVE 
RLSAVE 

RLSVED 



Symbolic name for phase 4 user routine 

Temporary storage area for sign bits in the packed 
decimal reconversion routine 

Disk address of the assignment phase checkpoint 
record . 



Number of records processed (merged)- Does not 4 
include user insertions or deletions. 

For reading records from a file into the input area 8 
(tape input only). 

Same as RDCCW , except for disk input. 56 

Address of RTCCW; used to initialize input channel 3 
programs ACCB through DCCB to read tape input. 

Constant 256; used in calculations for moving 4 

records to the output area. 

First part of end-of-job message in 33 

DSORT401: "7DD5I RECORDS PROCESSED 0000000 M . (The 
zeros are replaced by the number of records 
processed.) Also see MESEOJ. 

Starting address of original optional routines in 4 
phase 4 re locator. 

Indicator for relocatable routines. 1 

Length of compare sets. 4 

Save area for registers 4 through 10 in relocator 28 
routine. 

Constant 00C0, used 2 each 

to initialize registers in relocator routine. 

Address of first byte of main storage following the 4 
relocated routines and available for the I/O area. 

Constant 16; used to test for last selector. 4 

Table of original optional routine lengths. 24 

Table of modified optional routine lengths. 24 

Constant FFFFFFFD; used to round optional routine 4 
lengths to full word boundary. 

Save area for zone bits in move routine. 2 

Save area for registers 5, 6, and 7 in relocator 12 
routine. 

Area used in conjunction with RLSAVE to store the 4 
content of registers in the relocator routine. 
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Label 



Contents 



Bytes 



RTCCW 



CCW for reading tape. 



SAVE45 



Storage location for saving the contents of 
registers 4 and 5; used in moving records to the 
output area. 



SAVEO 



Storage location for saving the contents of 
register MREG when branching to open/close routine- 



SAVEREG * 
SEEK * 



SEQCCB1 
through * 
SEQCCB3 



SEQCCW1 
through * 
SEQCCW3 



SEQMES1 
through * 
SEQMES3 

SLINK 



SORTRL ** 

TABCCB * 
TABLEB ** 

TBKLAB ** 



TC3656 



TKLEFT 



TPOM * 
TRACK1 
TRACK2 



-} 



Save area for general registers 10 through 15* 24 

Seek and search CCW's for reading assignment phase 32 
checkpoint record. 

CCB's for printing sequence error messages. 48 



CCW s for printing sequence error messages. 24 



Sequence error messages 51 

7DD2A and 7DD2D; see Appendix D. 



Storage location for saving the contents of the 4 

link register. 

LI, Input record length - 2 bytes 4 

L2 - 2 bytes (not used by sort program) 

CCB for reading the assignment phase table. 16 

Disk work area limits table from checkpoint record. 88 

TABLEB is read in with the checkpoint but is not 
used in phase 4. 

Type of blocking (input) and input file options: 1 

Bit - Variable blocking 

Bit 1 - Fixed blocking 

Bit 2 - OPEN RWD 

Bit 3 - OPEN NORWD 

Bit 4 - not used 

Bit 5 - CLOSE UNLOAD 

Bit 6 - CLOSE RWD 

Bit 7 - CLOSE NORWD 

Constant 3633; the capacity, in bytes, of the 2311 2 
track. For disk output only. 

Counter for number of bytes remaining on a track. 2 
Used for computing the available area on a 2311 
track after record has been written on disk. For 
variable-length output only. 

Number of tapes in input. 4 

Addresses of first and second tracks of work area. 4 
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Label 
TRK1 
TRK2 
TYPREC ** 



:2 J 




USADDR ** 
OS BRAD ** 

USINF1 
USINF2 

USINF3 



VRFCCW 
WLRCCB 

WLRCCW 
WLRMES 

WRITETP 

WTCHPG 

through 

WTCCW+24 

WTPCCW 

XFILE ** 

XTIWE 

ZONZN2 



} 



Contents 

Addresses for writing initialized open/close routine 
on disk. 



Type of record (fixed or variable) and output label 2 
options (type from RECTYP, options from INOUT+1 in 
assignment phase). 

Second byte: 

Bit - Variable- length records 

Bit 1 - Fixed- length records 

Bit 2 - OPEN RWD 

Bit 3 - OPEN NORWD 

Bit 4 - not used 

Bit 5 - CLOSE UNLOAD 

Bit 6 - CLOSE RWD 

Bit 7 - CLOSE NOR WD 

Starting address of user routine in phase 4. 4 

Address of phase 4 user routines (same as USADDR). 4 

Input block length for user* 4 

First 2 bytes - Output record length (L3) for user, 4 

Second 2 bytes - Input record length (LI) for user. 

First byte - record type, format, and label type 4 
for user. 

Second byte - First control field information 
(CFILCT) for user, 

Third and fourth bytes - unused. 

CCW for verification of records written on disk. 8 

Command control block for wrong-length record message. 16 

CCW for printing wrong- length- record messages. 8 

Wrong- length-record message: ' 7DD1I WLR FILE X f 16 
(The X is replaced by the file identification,) 
See Appendix D. 

Used to modify WTCCW for tape. 3 

For writing merged records from the output area onto 48 
disk or tape (modified by WTPCCW for tape output) . 

CCW used to modify WTCCW program for tape output. 8 

Current file indicator for input files A through D. 1 

Indicator for conversion or reconversion of data. 1 

Temporary storage for sign bit in the zoned -decimal 2 
reconversion routine. 



348 IBM S/360 DOS Sort/Merge 



D EFINITIONS OF ABBREVIATIONS 

BAL - Branch-and-link 

BLI - Block length indicator 

BPT - Sort blocks per track 

CCB - Channel command block 

CCW - Channel command word 

CF - Control field 

CHHR - Cylinder, head- head, record number 

EOF - End of file 

EOJ - End of job 

EOV - End of volume 

G - Number of records per sequence in phase 1 

Hex - Hexadecimal 

LLR - Label linkage routine 

M - Order of merge 

OM - Order of merge 

RAF - Record address file 

RLI - Record length indicator 

RPT - Records per track 

S - Number of input sequences remaining at the start of a merge 
within a pass 

TA - Tracks available (assignment phase). Used in calculating 
disk work area 

TC - Track capacity 

TR - Tracks required (assignment phase). Used in calculating 
disk work area 

VLR - Variable- length record 

WLR - Wrong- length record 
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APPENDIX B: LABEL REFERENCES 



ASSIGNMENT PHASE 



Label 


Chart 


ABORT 


AA 


AGAIN 


AQ 


Bl 


AH 


B2 


AH 


B118 


AP 


B119 


AP 


B126 


AP 


B135 


AP 


B136 


AP 


B170 


AP 


BEGIN1 


AA 


BEGIN 


AP 


BLK 


AG 


BLK2 


AG 


BLKHIP 


AJ 


BLKOK 


AJ 


BLMAX4 


AH 


BRCH 


AR 


BYPVAR 


AL 


C 


AJ 


CALC 


AQ 


CALCSW1 


AK 


CALCSW2 


AL 


CALNOP 


AM 


CALPH1B2 


AK 


CALRPT 


AL 


CALSWR2 


AN 


CALSW2V 


AM 


CBYPTK 


AK 


CBYPTKV 


AM 


CCDESC 


AR 


CCERR 


AA 


CCSO 


AB 


CCS 2 


AB 


CF256 


AG 


CFB3MAX 


AH 


CFL3FAX 


AH 


CHKRECBK 


AL 


CKA.MAX 


AM 


CKBI 


AH 


CKBMAX 


AH 


CKBPT 


AK 


CKBYPTKR 


AN 


CKDEFS 


AE 


CKFLD1 


AD 


CKFLD4 


AD 


CKFLDM 


AD 


CKHEAD 


AR 


CKKEY 


AJ 


CKLABELS 


AJ 


CKL3MAX 


AH 


CKL3MX 


AJ 


CKL^AX 


AH 


CKMERGE 


AJ 


CKPARA 


AA 
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CKPRINT AR 

CKRECBK AL 

CKRECBKR AN 

CKRPT AN 

CKRPT1 AN 

CKRWD A J 

CKSIZ AJ 

CKTYPEIN AJ 

CKVOL AJ 

CLEAR AB,AF 

CLORBV AH 

CLUB AP 

COL 16 A A 

COMBPT AK 

COMBPTV AM 

COMP AC # AD,AQ 

COMPG AL 

COMPGR AN 

COMPGV AM 

COMPM AD 

COMPO AD 

COMPP AE 

CONOUT AR 

COEVAL AG 

C VB 3MAX AH 

CVL3MAX AH 

DET LOWER AH 

DETSMALL AH 

DIV8L AM 

DSORT AA 

DSORT002 AB 

DSORT00 3 AC 

DSORT 00 a AD 

DSORT005 AF 

DSORT 006 AH 

DSORT007 AJ 

DSORT 00 8 AK 

DSORT009 AP 

DSORT010 AR 

E181 AP 

£20 AP 

ENDGF AL 

ENDGFR AN 

ENDSCN AE 

EOJ AR 

EOJ3RT AS 

EOJ CI AS 

EOJCALC AR 

EOJCSW AS 

EOJZ AR 

ERR1 A A 

ERR 3 AA 

ERR 3 A A A 

ERR 4 AA 

ERRS AA 

ERR 6 AA 

ERR6U A A 

EXIT AF 

EXITB AF 

F2SW AS 

FUSW AS 

FETC10 AP 

FETCH AA 

FETC.H1 AS 

FETCH 2 AS 
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FETCH4 AC, AS 

FETCH5 AE 

FETCH7 AH 

FETCH9 AL, AM 

FETCHEND A£ f AH,AM 

FETVAR AS 

FINAL AP 

FIND AQ 

FIRSTED AG 

FIXED AP 

GETEOJ AG 

GET LI AJ 

GETMES AB 

INCSWR AN 

INF AR 

INF1 AD 

INFSCN AD 

INIT1 AF 

INIT2 AF 

INITA1 AF 

INITST AA 

INITCSWS AL 

LI AH 

L1MOLT AJ 

L3L1 AJ 

LABEXCK AJ 

LENHI AJ 

LENLO AJ 

LQAD1 AA 

LOAD2 AB 

LOOP AJ 

Ml AR 

METH1I AF 

MGINIT AF 

MINBLKI AJ 

MODI AD 

MODSCN AD 

MOVECC AB 

MRGCKP AF 

MRGOPN AF 

MRGSCN AC 

MSG91 AS 

MSG91A AS 

NOCALCS AR 

NORAF AJ 

NOVAR AG 

ONETWO AQ 

OPEN AF 

OPERROR AA 

OPFLE AR 

OPTSC1 AA 

OPTSC2 AA 

OPTSCN AE 

OPTSCS AA 

OTFSCN AD 

OUT AQ 

OUTFI AR 

OUTPT AL 

OVLPCF AJ 

P1SIZE AG 

P2SIZE AG 
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P3SIZE AG 

P4NAM AG 

P4NAMS AG 

PUSIZ AG 

PHZ2 AL 

PRINTE AP 

PRNTCARD AR 

PRTCALCS AR 

PUTCNSWR AN 

PUTCC2 AL 

PUT CO 2 R AN 

PUTCON AL 

PUTCONSW AL 

PUTCOV AM 

RAFBI AH 

RAFRTN AN 

RC1 AC 

RCDSCN AC 

RDCKPR AS 

RD.RTN AA 

RE1 AR 

READB AA 

READX AF 

READX1 AF 

READXT AF 

REINIT AL 

REINIT1 AL 

REINTIIR AN 

REINITR AN 

REDUCE AK 

REDUCER AN 

REDUCEV AM 

REP1 AP 

REPB AP 

RESTOR AP 

RETRY AL, AP 

RT1 AG 

RUNCODSW AA 

S188 AP 

SAVCKP AF 

SCAN AC 

SEEKTM AQ 

SORTXT AF 

SPADE AP 

SRT1 AC 

SRTSCN AC 

ST1-4 AF 

STBO AN 

STDFV AG 

STEP AK 

STEP1 AK 

STEP1B AK 

STEP1BR AN 

STEP1R AN 

STEP1V AM 

STEP3 AK 

STEP3A AK 

STEP4 AK 

STEP4R AN 

STORE AD 

STOREM AD 

STORP AE 

STVSOM AP 

SVORIG AM 

SW AA 

SW1 AA, AL 
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SW1R 


AH 


SW2V 


AM 


TABLEF 


&Q 


TAG OUT 


AP 


TEST 


AB 


TESTDEV 


AJ 


TESTOPERR 


AE 


TSER7 


AJ 


TSMERG 


AR 


TSREST 


AS 


TSTBLKCD 


AA 


TSTCALCS 


AR 


TSTEND 


AB 


TSTER5 


AG 


TSTLGH 


AB 


UPHOVE 


AA 


USEORIG 


AK 


USEORIGR 


AN 


USESTR 


AG 


VALIDATE 


AJ 


VARBI 


AH 


VAREND 


AP 


VARRTN 


AN 


VBI 


AH 


vu 


AH 


VLESSG 


AP 


WTCKMG 


AR 


WTCKPS 


AS 



PHASE 1 

ISABEL CHART 

BLDADR BK 

CHKPT BA 

CHKUSER BA 

CHNCMP BJ 

CHNMVE BK 

CMPCHN BF 

COMPRES BH 

CTLINC BA 

DCLOSE BM 

DIBLRD BD 

DIHERE BD 

DINGET BK 

DINGUD BK 

DINJCY BD 

DIN1ES BK 

DIN.MVA BD f BK 

DSKINIT BA 

ENDINP BM 

ENDMAC BN 

EOFADDR BN 

EOFINIT BA 

EOVEOF BN 

EXIT BF 

EXITP1 BH 

EXITSW BA 
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FECH22 BB 

FEOVBR BN 

FEOVRTN BN 

FET10 2 BA 

FETCH BB,BG,GH 

FLMVBC BC 

FLMVGO BC 

FORMAT BB 

FORMGO BB 

FRMBPT BB 

FRMCYB BB 

FRMGWK BB 

FRMSTT BB 

FRMXTC BB 



GETXT BM 



IBV001 BG 

IBV021 BB 

IBV022 BC 

IBV023 BJ 

IBV024 BH 

IBVAA1 BC,BJ 

IBVIF4 BF 

IBVJC2 BF 

IBVMC3 BG 

IBVMHU BG 

IBVND4 BG 

IBVNE4 BG 

IBVPB2 BG 

IBVVLR BG 

INEXIT BD,BL 

INFINI BD,BL 

INIT32 BA 

INITEXll BA 

INMOVE BD 

INPTIZ BC 

INT APE BA 

INTRED BE 

IZTAPE BC 

LBLCHK BL 

LBLINIT BA 

LOCARE BC,BJ 

LSTFLSW BM 

LSTFILSW BN 

MNLDSK BM 

MNLLINK BM 

MNLTAP BM 

MOPS1 BG 

NOEOB BK 

NONSTD BA 

NXTFILE BN 

MXTREC BK 

ONEXIT BD,BL 

OPENA BM 

OPENT BM 

OUTIZ BC,BJ 

OV2INW BH 

P1INBG BD, BK 

P1LEV1 BF 

PADRTN BG 
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RDCNT BK 

REDOUT BF 

SAVADR BA 

SAVVOL BN 

STORM1 BF 

STORM 2 BF 

TAGADR BK 

TAGCHK BJ 

TAGINT BJ 

TAGMNL BK 

TINBG BE 

OSEREX11 BM 

VARBLK BK 

VLI125 BC 

VLINAA BC 

VLINAC BC 

VLRINZ BC,BJ 

WLR BK 



PHASE 2 

Label Chart 



BSTR6 


CM f CY 


BYPAS1+4 


CD, CR 


BYWCKD 


CA,CN 


CALADR 


CM, CY 


CKPTOK 


CC f CQ 


COMPBA 


CK,CW 


COMPCA 


CJ,CV 


COMPCB 


CJ,CV 


COMPDA 


CH f CU 


COMPDB 


CH,CU 


COMPDC 


CH,CU 


COMPEA 


CG f CT 


COMPEB 


CG, CT 


COMPEC 


CG,CT 


COMPED 


CG f CT 


COMPFA 


CF,CS 


COMPFB 


CF,CS 


COHPFC 


CF,CS 


COMPFD 


CF,CS 


COMPFE 


CF,CS 


COMPGA 


CE 


COMPGB 


CE 


COMPGC 


CE 


COMPGD 


CE 


COMPGE 


CE 


COMPGF 


CE 


COMPIT 


CA,CN 


CPIOAS 


CA,CN 


CPOADR-8 


CC 


CPOADR-12 


CQ 


DIVAGN 


CA,CN 


ENDPAS 


CB,CP 


EXECPP 


CC f CQ 
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FETCH 3 


CC f CQ 


FILLA 


CD,CR 


FILLB 


CD,CR 


FILLC 


CD,CR 


FILLD 


CD,CR 


FILLE 


CD, CR 


FILLF 


CD,CR 


FILLG 


CD 


GETA 


CD,CR 


GETB 


CD f CR 


GETC 


CD,CR 


GETD 


CD, CR 


GETE 


CD,CR 


GETF 


CD,CR 


GETG 


CD 


ILEAVE-10 


CC,CQ 


INITOM 


CC,CQ 


INTPH2 


CA,CN 


IRMDR 


CD,CR 


IRMDR1 


CD,CR 


LM1 


CD, CR 


LM1234 


CB,CP 


LMO 


CL,CX 


LMOSW 


CB,CP 


LMTSOK 


CM,CY 


MMPP 


CL,CX 


MMPP1 


CM,CY 


MMPP 2 


CB f CP 


MMPPS 


CB, CP 


MOVMVC 


CL 


NEWITL 


CC,CQ 


NEXTPASS 


CC,CQ 


NOCHG 


CB, CP 


NOTLAS 


CC,CQ 


NOWCKD 


CA, CN 


NXTAR 


CK,CW 


NXTBR 


CK,CW 


NXTCR 


C J , cv 


NXTDR 


CH,CU 


NXTER 


CG,CT 


NXTFR 


CF,CS 


NXTGR 


CE 


OLEAVE 


CC,CQ 


ORMDR 


CL f CX 


ORMDR1 


CL, CX 


OSPLIT 


CY 


OUPTOK 


CA, CN 


OUTFUL 


CL,CX 


PUTA 


CK,CW 


PUTB 


CK,CW 


PUTC 


CJ f cv 


PUTD 


CH f CU 


PUTE 


CG # CT 


PUTF 


CF,CS 


PUTG 


CE 


RCHKPT 


CA,CN 


RDABCD 


CD,CR 


RDCPOK 


CA,CN 


REDUCEI 


CB,CP 


REDUCEO 


CB f CP 
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SFOADR CB,CP 

SHTPTR CC, CQ 

SPLITA CW 

SPLITB CW 

SPLITC CV 

SPLITD CU 

SPLITE CT 

SPLITF CS 

SPLIT I CX 

SPLITM CX 

SPLITO CX 

START CA,CN 

TAKECP CC,CQ 

TMINUS CP 

TRUADR CY 

USTOPA CD, CR 

USTOPB CD,CR 

USTOPC CD, CR 

USTOPD CD,CR 

USTOPE CD, CR . 

USTOPF CD,CR 

USTOPG CD 

VARMOV CX 

WAY4 CB,CP 

WRITE CL, CX 

WTDATA CL,CX 

ZYXWZY CL 



PHASE 3 

Label Chart 

ADRTRU DH, DT 

CHKSEQ DJ,DU 

CLOSE DK,DV 

COMP21 DG,DS 

COMP3.1 DG,DS 

COMP32 DG,DS 

COMP41 DF,DR 

COMP4 2 DF,DR 

COMP4 3 DF, DR 

COMP51 DE,DQ 

COMP52 DE,DQ 

COMP53 DE,DQ 

COMP54 DE,DQ 

COMP61 DD,DP 

COMP6 2 DD,DP 

COMP63 DD,DP 

COMP64 DD,DP 

COMP65 DD,DP 

COMP71 DC 

COMP7 2 DC 

COMP73 DC 

COMP74 DC 

COMP75 DC 

COMP76 DC 

CONVRT DJ,DU 

CPBPTI DH,DT 

CPBPTO DJ,DU 

CPLINK DA, DM 
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EOJSW DU 

EX IT 3 2 DJ,DU 

FILL1 DB,DN 

FILL2 DB,DN 

FILL3 DB, DN 

FILL4 DB,DN 

FILLS DB f DN 

FILL6 DB,DN 

FILL7 DB 

FOLOUT DJ,DU 

GET1 DB,DN 

GET 2 DB,DN 

GET 3 DB,DN 

GET** DB,DN 

GET5 DB, DN 

GET6 DB,DN 

GET7 DB 

IF1 DB,DN 

IF2 DB,DN 

IF3 DB,DN 

IFU DB,DN 

IF5 DB,DN 

IF6 DB 

INSERT DU 

INTLEAVE DA, DM 

INTPH3 DA, DM 

IOCSCLOS DL,DW 

IOCSOPEN DL f DW 

ISPLIT DU 

ITCOMP DA, DM 

LABETY DK, DV 

LRMDR DH,DT 

LRMDR1 DH, DT 

LWRITE DJ,DU 

LWRITE+U DJ 

MOVVAR DU 

MSPLIT DU 

NXT1R DG, DS 

NXT2R DG,DS 

NXT3R DG,DS 

NXTUR DF,DR 

NXT5R DE, DQ 

NXT6R DD,DP 

NXT7R DC 

NXTOR DJ 

OKLMTS DH, DT 

OPENF DK r DV 

OPTION DA, DM 

OUT APE DA, DM 

OUTDSK DA, DM 

PH3CON DA, DM 

PH3EJ1 DJ/DU 

PH3EOJ DK,DV 

PH3MRG DA, DM 

PRTEOJ DL,DW 

PUT1 DG, DS 

PUT2 DG,DS 

PUT3 DG, DS 

PUT 4 DF,DR 

PUTS DE,DQ 
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PUT6 


DD t DP 


PUT7 


DC 


RD1234 


DB,DN 


RECORDO 


DA, DM 


RTNEQ 


DA, DM 


RRLABL 


DK,DV 


SEQCBK 


DJ,DU 


SEQERR 


DJ,DU 


SEQ ERROR 


DL, DW 


SPLIT1 


DS 


SPLIT2 


DS 


SPLIT3 


DS 


SPLIT U 


DR 


SPLITS 


DQ 


SPLIT6 


DP 


SPLITR 


DU 


START 


DA, DM 


START 1 


DA, DM 


TAPEO 


DJ/DU 


TAPLLR 


DA, DM 


T.ESTEQ 


DA, DM 


USRLAB 


DL, DW 


USTOP1 


DB, DN 


USTOP2 


DB,DN 


USTOP3 


DB, DN 


USTOP4 


DB,DN 


USTOP5 


DB,DN 


USTOP6 


DB,DN 


USTOP7 


DB 


WTLBLK 


DU 


X31CLS 


DL,DW 


X31CLS-12 


DL,DW 


X31EVT 


DL,DW 


X31LNK 


DL,DW 


X31TS1 


DL,DW 



ZYXWZY- INSERT DJ 



PHASE ** 



Label Chart 

ADD1 EJ 

ADJOUT EH 

BCERRW ED 

BEGIN EM 

BPASS ED 

CEVCHK EP 

CHKPOINT EA 

CLIFOR EB 

CLOSE I EN 

CLOSEQ EM 

COMP EM 

COMP21 EG 

COMP31 EF 

COMP32 EF 

COMP41 EE 
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C0MPH2 EE 

COMP43 EE 

CONVRT EH 

CPBPTO EH 

CPIADD EC 

DISK EA 



EOF 


ED 


EOFDK 


ED 


EOFTAPE 


EN 


EOJMES 


EK 


EOVDSK 


EH 


ERR 


ED 


ERROR 


ED 


ERRW 


ED 


EXIT 


EH, EM 


FETCH 


EA 


FEOVOUT 


EM 


FEOVTP 


EN 


FILLDL 


EB 


FIXIP1 


EC 


FIXLGN 


EB 


FIXMOV 


EH 


FLDSKO 


EB 


FLDSKO+14 


EB 


FROI*S3K 


ED 


FULOUT 


EH 


GET1 


EC 


GETAB 


£A,EB 


GOGO 


EB,EM 


GOGOl 


EN 


GOG02 


EN 


INIT1 


EA,EB 


IN IT 2 


EA, EB 


INIT3 


EA,EB 


INIT4 


EA 


I NITS 


EA 


INPUT 


EM 


INSERT 


EH 


ITCOMP 


EB 



KEYOK EB 

LALINK ED 

LASTBUK ED 

LMTOKO EH 

LRA EC 

LWRITE EH 

MEND EN 

MODIFY EN 

MULTPL ED 

NIEFI ' EN 

NIEFO EM 

NOUSER EB 

OKLMTS EC 

OPENA EM 

OPENI EN 

OPENO EM 

OPENX EM 

OUTAPE EB 

OUTDK EM 
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OUTFIL EH 

OUTPUT EM 

PANCO EA, EB 

PH3EJ1 EH 

PH3EJ2 EJ 

PH3EOJ EJ 

PH4EOJ EK 

PROCESS ED 

PROS EB 

PUT1 EG 

PUT 2 EG 

PUT3 EF 

PUT 4 EE 

RESPONSE EL 

RES TOR ED 

RESTOR+** ED 

SEQBACK EH 

SEQERR EH, EL 

SWITCH2 EN 

TAPE EA 

TAP El EC 

TAPE1-2 EC 

TAP EG 1 EC 

TAPEGl-4 EC 

TAPEIN EN 

TAPEO EH 

TAPEX ED 

TAPPUT EH 

TAPOFX EB 

TAPOFX+8 EB 

TAPOUT EA f EJ 

TAPOV3 EH 

TEST ED 

TESTEX EB 

TESTON EB 

TlMEOF ED 

TPDKSW EN 

TPOUT EB 

TR1 EC- 

TR1-4 EC 

TSBPASS EB 

TSTFORM EB 

TSTREC EB 

UPDTO EH 

USEREX41 EN 

USEREX44 EM 

VARMOV EH 

WLR ED 

WLR2 ED 

WRITE V EH 

ZYXWZY EH 
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OPTIONAL ROUTINES 



Label 



Chart 



ANICTE 
ANIULT 
ANIVTA 
ANONE 



FA 
FA 
FA 
FA 



EQINIT 



FA 



FIXPNT 

FIXR2 

FIXVTA 

FLTBCK 

FLTCML 

FLTCSG 

FLTPNT 

FLTSWH 

FLTVTA 



FB 
FB 
FB 
FC 
FC 
FC 
FC 
FC 
FC 



IGDUM 

IGLCOM 

IGOUT 



FF 

FF 
FF 



PAKCLR 
PAKLP2 



FD 
FD 



RELOCA 

RLFWB 

RLMDGT 

RLRUTR 

RLSTRP 

RLUPDT 

ROUT1 



FA 
FA 
FA 
FA 
FA 
FA 
FF 



SIGCP2 
SIGCP4 
SIGKR2 
SIGPK2 
SIGZN2 



FE 

FD 
FD 
FD 
FE 



ZNLST2 
ZONPS2 



FE 
FE 
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APPENDIX C: EXPLANATION OF FLOWCHART SYMBOLS 



DESCRIPTION 



Processing 




Program 
Modification 



Predefined 
Process 





( Terminal J 



O 



A group of program instructions 
that perform a processing 
function of the program. 



Description or title of a routine 
that is detailed on another flow- 
chart, which is identified by the 
letters in the stripe . 



An instruction or group of 
instructions that changes 
portions of a routine or initial- 
izes a routine for given 
conditions. 



A group of operations not 
detailed in the flowcharts 
for this program, such as 
user's routines. 



Any function of an input/ 
output device or program. 



Points in the program where 
branches to alternate proces- 
sing are made, based upon 
variable conditions, program 
switch settings, and test results. 
Dotted-line decision blocks 
represent pre-set branches (usually 
determined at initialization time). 



The beginning or end of 
a program . 



On-page connector. An entry 
from, or an exit to, another 
function on the same flowchart. 
The number in the connector 
identifies the corresponding 
entry or exit on the chart. 



Off-page connector . An entry 
from, or an exit to, a given point 
on another flowchart. The char- 
acters in the connector identify the 
chart and block. The corresponding 
label, if any, is placed outside the 
connector. For multiple entries and 
exits, an asterisk appears in the con- 
nector and the characters are listed 
nearby. 



BB-D4, INITL1 
BC-B2, OPENX4 
BL-J1, ENDPRN 




Note: Arrowheads are not used on lines 
that indicate normal flow, which 
is downward and to the right on 
page. 
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APPENDIX D: ERROR MESSAGES 



Numbe r Message 

7 DO II COLUMN 1 NOT BLANK. 
CONTROL CARD NUMBER 
XX. 



Meaning 

Column 1 of a sort /merge 
Control statement is not 
blank. X* represents the 
number of the control 
statement within the 
sequence of sort /merge 
control statements. 



Chart 



AA 



7D02I L3 INVALID FOR 

ADDROUT OPTION, 



The output record length 
(L3) must be (1) equal to 10 
when ADDROUT=A, (2) at least 
11 when ADDROUT=D, or ( 3) no 
greater than 10 bytes plus 
the length of all control 
fields if ADDROUT=D and exit 
32 is not specified. 



AG 



7D0 3.I STATEMENT DEFINER 
INVALID. XXXXXX 



The statement definer is 
invalid or does not appear 
between columns 2 and 15 in 
the control card. The 
definer is identified by 
XXXXXX. 



AA 



7 DO 4 I NO. END CARD FOUND 
AFTER READING 25 
CONTROL CARDS. 



More than 2 5 control 
statements have been read 
without encountering an END 
statement. The maximum 
number of control statements 
permitted is 25* 



AA 



7D05I CONTINUATION CONTROL 
CARD XX DOES NOT 
START IN COLUMN 16. 



A continuation card must 
begin in column 16. XX 
denotes the number of the 
invalid control statement. 



AA 



7D06I 



7D07I 



BLANK CONTROL CARD 
DETECTED. 



MANDATORY XXXXXX 
CARD OMITTED. 



A blank control card has AA 
been intermixed with the 
sort/ merge control 
statements. 

A mandatory control AB 

statement has been omitted. 
The statement definer of the 
missing card is identified 
by XXXXXX . 



7 DO 8 I TYPE RUN NOT KNOWN 
SORT OR MERGE NOT 

SPECIFIED. 



Neither a SORT nor a 
MERGE control statement 
was included. 



AB 



7 DO 9 I NO BLANK AFTER 

STATEMENT DEFINER 
X XXXXXX 



A blank does not separate 
the statement definer from 
the first operand definer. 
The first six X's identify 
the statement definer; the 
last X identifies the 
invalid punched character. 



AC, 
AD 
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Number 



Message 



Meaning 



Chart 



7D10I 



7D11I 



FIELD DEFINER 
INVALID - XXXXXXXX. 



VALUES INVALID - 
XXXXXX. 



The operand definer AC f 

identified by XXXXXXXX AD 

is not recognized as a valid 
operand definer* 

The value (s) following an AC, 
operand definer is invalid* AD 
XXXXXX identifies the 
invalid value(s). 



7D12I 



INVALID FORMAT 
CODE GIVEN - XX. 



The format code for the 
input data is punched 
incorrectly. 



AC 



7D13I SORT AND MERGE 
CONTROL CARDS 
SPECIFIED IN SAME 
RUN. 

7D14I NO SEQUENCE VALUE 
GIVEN FOR CF XX, 



Both a SORT and a MERGE AC 

control statement were 
included. Only one is 
acceptable. 

No sequence (ascending or AC 

descending) has been 

specified in the SORT or 

MERGE control statement for 

one or more control data 

fields. 



7D15I MORE THAN 12 

CONTROL FIELDS 
SPECIFIED. 



The maximum number of 
control fields to be used 
in sorting or merging is 12. 



AC 



7D16I FORMAT ENTRY NOT 
SPECIFIED. 



The FORMAT operand definer 
is not specified in either a 
SORT or MERGE control 
statement. 



AG 



7D17I NO MAJOR CONTROL 
FIELD WAS GIVEN. 



Control field 1 
specifications are not 
recognizable to the program 
because the FIEID3 operand 
definer was not included in 
a SORT or MERGE control 
statement. 



AG 



7D19I FIXED BLOCKING 
SPECIFIED FOR 
VARIABLE LENGTH 
RECORDS. 

7D20I CONTROL FIELD XX 
EXTENDS BEYOND 
END OF RECORD. 



Variable- length records 
on input must be 
specified as being in 
variable- length blocks. 

A control data field 
identified by XX has 
been specified beyond the 
last valid byte of the 
logical record. 



AG 



AJ 



7D21I 



7D22I 



TOTAL LENGTH OF 
CONTROL FIELDS 
EXCEEDS 256. 



CONTROL FIELD XX 
GREATER THAN 
MAXIMUM ALLOWED. 



The total length of all AG 
control data fields is 
limited to a maximum of 256 
bytes. 

The control data field AJ 

identified by XX exceeds 
(1) 16 bytes for a decimal 
field, or (2) 4 or 8 bytes 
for a normalized 
floating-point number. 
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Number 



Message 



Meaning 



Chart 



7D23I 



L4 MUST BE LESS 
THAN (LI) (L5) 



When sorting variable- 
length records, the minimum 
input record length must be 
less than the maximum or 
average input record length. 



AG 



7D24I 



7D25I 



7D26I 



7D27I 



STORAGE SPECIFIED 
GREATER THAN ACTUAL 
MACHINE SIZE. 



(L3) (LI) MORE THAN 
XXXX BYTES. 



KEYLEN ENTRY INVALID. 



STORAGE SPECIFIED 
MORE THAN 524,288 
BYTES. 



The value specified in AG 
the STORAGE entry is 
greater than the machine 
size specified at IPL time. 

The input or output record AJ 
length exceeds the maximum 
record length acceptable to 
the sort /merge program. 

The KEYLEN operand AJ 

def in<er can only be 
specified for fixed- length 
unblocked records (disk 
input only) . 

The maximum main storage AG 
capacity supported by 
the sort/merge program is 
512K. 



7D2 8I RECORD TYPE NOT 
SPECIFIED. 



7D2 9I 



7D3 0I 



FILES ENTRY NOT 
SPECIFIED FOR 
MERGE. 



SIZE ENTRY 
OMITTED IN SORT 
STATEMENT. 



The TYPE operand de finer AC 
used to indicate fixed- or 
variable- length records has 
not been specified- 

The number of files to be AD 
merged has not been 
specified. The FILES entry 
is mandatory for a 
merge- only ope rat ion . 

The SIZE operand definer AJ 
is mandatory for a sort 
operation. It is used to 
reflect the exact or 
approximate number of 
records to be sorted. 



7D32I 



7D33I 



USER PROGRAM 
ORIGIN GREATER 
THAN STORAGE 
SIZE. 



L5 IS GREATER 
THAN LI. 



The main storage load point AG 

or origin address for a 

user program has been 

specified beyond the 

boundaries of the storage 

size. All user programs 

must be loaded below the 

storage size indicated at 

IPL time or in the STORAGE 

entry. 

L5 has been specified AG 

greater than LI for 
variable- length records. L5 
must be specified as the 
average logical record 
length, or as a value 
between the average and the 
maximum (LI). 
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Number 



Message 



Meaning 



Chart 



7D34I (E32) (E43) NOT 
SPECIFIED WHEN 
L3 (MORE) (LESS) 
THAN LI. 



7D35I EXIT (31) (44) 

NOT SPECIFIED FOR 
NONSTANDARD LABELS. 



7D36I USER GIVEN FILE 
SIZE EXCEEDS 
MAXIMUM. 



7D37I 



7D3 8I 



7D39I 



INPUT BLOCKSIZE 
NOT A MULTIPLE 
OF LI. 



OUTPUT BLOCKSIZE 
NOT A MULTIPLE 
OF L3. 



A CF STARTS PRIOR 
TO BYTE 5 IN 
VARIABLE- LENGTH 
RECORDS . 



If L3>L1, exit 32 or AG, 

exit 43 must be included AJ 

to accomplish record 

lengthening in phase 3 or 

phase 4. If L3<L1 and 

variable- length records have 

been specified, exit 32 or 

exit 43 roust be used to 

update the record length 

field of each truncated 

record. 

When nonstandard output AJ 

tape labels have been 
specified, it is the user's 
responsibility to create and 
write them. This function 
is performed through exit 31 
or exit 44. 

The specified sort work AP 

area allocated in the 

FILEW extent cards is not 

large enough to process the 

file size specified in the 

SIZE entry of the SORT 

control statement. 

The number of bytes in an AJ 

input block for fixed-length 
records must be a multiple 
of the number of bytes in 
each input record. 

The number of bytes in an A J 

output block for fixed- 
length records must be a 
multiple of the number of 
bytes in each output record. 

The first four bytes of a AJ 

variable- length record 

are the record- length field 

and must not be used as a 

control data field. 



7 D4 1 CONTROL FIELDS 

OVERLAP FOR OTHER 
THAN BI FORMAT. 



Overlapping control data 
fields are valid only with 
the unsigned binary data 
format. 



AJ 



7D41I 



7D42I 



7D43I 



RECORD LENGTH NOT 
SPECIFIED. 



BLOCKSIZE GREATER 
THAN XXXX. 



NOTPMK ENTRY 
SPECIFIED WITH 
STANDARD OUTPUT 
LABELS. 



The operand de finer LENGTH AG 

or its value (LI) has not 
been specified. 

The input or output block AJ 

length specified is greater 
than the maximum acceptable 
to the program. 

The NOTPMK entry is valid AJ 

only for unlabeled tape 
output files or for tape 
output files with 
nonstandard labels. 
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Message 



Meaning 



Chart 



7D44I PHASE (1) (3) (4) 
MODIFICATION 
PROGRAM TOO LARGE, 



The size of the user program AH, 

(determined by the Address AK, 

value in the MODS statement) AM, 

is such that it forces the AN 
sort block size below the 
required minimum. 



7D45I 



NO MEDIUM SPECIFIED 
FOR (INPUT) (OUTPUT), 



The type of input or output 
medium (tape or disk) has 
been omitted from the INPFIL 
or OUTFIL control statement. 



AG 



7D«*7I (TAPE) (DISK) 

OPTIONS SPECIFIED 
FOR (DISK) (TAPE) 
(INPUT) (OUTPUT) . 



Tape options such as OPEN 
and CLOSE can only be 
specified for tape files. 
Disk option such as KEYLEN 
and VERIFY pertain only to 
disk files. 



AJ 



7 D4 9 1 NO BLOCKSIZE GIVEN 

FOR (INPUT) (OUTPUT), 



The operand definer BLKSIZE 
has either been incorrectly 
specified or omitted. 



AG 



7D5 0I 



7D51I 



70 5 3D 



7D55A 



INSUFFICIENT TRACKS 
GIVEN FOR MERGE. 



ADDROUT OPTION 
SPECIFIED FOR 
MERGE. 

INVALID RESTART. 



INVALID RESTART. 
CHECK DISK PACK 
PLACEMENT. 



A minimum of 2 adjacent 
disk tracks must be 
allocated for the work area 
in a merge-only operation. 

The ADDROUT option cannot 
be specified for a 
merge- only operation. 



AF 



AJ 



A restart sort run has AS 

been specified, but the 
original sort was 
interrupted prior to the end 
of phase 1. 

1. The disk pack(s) which AS 
contains the sort work 
area was not placed on a 
drive assigned to the 
identical symbolic unit 
used in the initial, run, 
or 



7D64I 



DUPLICATE STATEMENT 
DETECTED - XXXXXXXX. 



2. The sort data has been 
destroyed since the 
original job. 

Two control statements 
contain identical statement 
def iners. 



AA 



7D67I INVALID LABELS 
SPECIFIED FOR A 
DISK FILE. 



Disk input or disk output 
has been specified, and 
the labels associated with 
the file(s) have not been 
specified as standard. All 
disk files must contain 
standard labels. 



AJ 
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Message 



Meaning 



Chart 



7D68I (INPUT) (OUTPUT) 
BLOCKSIZE INVALID 
FOR VARIABLE- 
LENGTH RECORDS, 



The input or output block 
size specified is less 
than the maximum input 
record length plus four 
bytes. The input or output 
block size must be equal to 
or greater than LI + ft. 



AJ 



7D69I SORT BLOCKSIZE 

MUST BE AT LEAST 
300 BYTES. 



The size (total number of 
bytes) of a user program 
in phase 1 or phase 3 has 
forced the assignment phase 
to compute a sort block size 
that is less than 300 bytes. 



AJ 



7D70I INPUT OR OUTPUT 
BLOCKSIZE IS 
INVALID. 



The input or output block 
size specified for a 
merge- only run exceeds the 
maximum size allowed. 



AH 



7D79I BLOCKSIZE FOR TAPE 
INPUT OR OUTPUT IS 
LESS THAN 12. 



The minimum input and 
output block size for 
tape operations is limited 
to 12 bytes. 



AJ 



7D81I EXIT 13 SPECIFIED 
FOR DISK INPUT. 



Exit 13 can only be 
specified in a sort 
operation when tape input 
has been specified. 



AJ 



7D8 2I 



7D83A 



7D84I 



7D85I 



ADDROUT OPTION 
SPECIFIED WITH 
TAPE INPUT. 



INVALID RESPONSE. 



TAPE DEVICE 
ADDRESSES MUST BE 
ASSIGNED TO 
(SYSXXX) (SYSnrm). 



ALL TAPE FILES 
MUST HAVE UNIQUE 
DEVICE ADDRESSES. 



The ADDROUT option can 
only be specified for a 
sort run when disk input has 
been specified. 

An invalid response to 
message 7D5 3D, 7D55A, 
or 7D90A has been received 
from the operator. 

For a sort operation, all 
tape input files must 
reside on SYS002-SYS010, 
depending on the number of 
files to be sorted. For a 
merge-only operation, tape 
FILEA must be on SYS002 , 
tape FILEB must be on 
SYS003, etc. For tape 
output, SYS001 must be the 
output unit. The listed 
symbolic units do not have 
tape device addresses 
assigned to them. 

The message can occur only 
during a merge-only run. 
At least two tape files 
(input and output) reside on 
symbolic units with an 
identical device address. 



AJ 



AA, 

AS 



AJ 



AJ 
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For tape input and/or 
output , all tape files must 
reside on different tape 
drives. For instance, for a 
2- way tape merge, FILE A must 
reside on SYS0 02; FILEB must 
reside on SYS003; SYS002 and 
SYS00 3 must have been 
assigned to different tape 
device addresses- If tape 
output is specified, SYS0 01 
must be a tape device other 
than SYS002 and SYS003. 



7D9 0A OPERATOR - ATTEMPT 
TO CORRECT ABOVE 
LISTED ERRORS. 



This message occurs at 
the end of the assignment 
phase when errors have been 
detected and both SYSRDR and 
SYSIPT are card readers. It 
applies to all assignment 
phase diagnostic messages 
except 7D53D, 7D55A, 7D83A, 
and 7D9 2I. This facility is 
provided to enable the 
sort/ merge program to be 
executed when it is only a 
job step within a specific 
job application. If the 
errors can be corrected 
immediately, the operator 
should do so. 



AA 



7D92I 



7 DAI I 



END OF ASSIGNMENT 
PHASE - ERRORS 
DETECTED, CORRECT 
AND RERUN 



WLR - FILEX 



7DA2I 



PHASE 1 UNREADABLE 
BLOCKS BYPASSED 
XXXX. 



Errors have been detected AA 
and listed by the assign- 
ment phase. SYSRDR and/or 
SYSIPT are not card readers 
or SYSLOG is not a 
printer- key board. 

Phase 1 has detected a BD, 

wrong- length record BE, 

(block) during a read BK 

operation. X indicates the 

file from which the 

wrong- length record was 

read. This message can 

occur when the records in 

the input file are not the 

same length as those 

specified in the LI value of 

the RECORD statement or the 

input BLKSIZE entry was 

specified incorrectly. 

This message is printed BE 
at the end of phase 1 when 
tape input has been 
specified, and either the 
BYPASS option or exit 13 has 
been specified. The message 
indicates the number of 
input blocks bypassed by the 
sort. 
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Number 
7DA3I 



Message 

WORK AREA TOO SMALL 
FOR ACTUAL FILE 



7DC2A 



7.DC2D 



INVALID RESPONSE. 



SEQ. ERROR, 



7DD1I 



WLR FILE X 



7DD2A 



7DD2D 



INVALID RESPONSE 



SEQ* ERROR FILE X 



7DD4I 



PHASE 4 UNREADABLE 
BLOCKS BYPASSED 
00000. 



Meaning Chart 

The work area specified BH 

in the FILEW extent card (s) 

is not large enough to 

process the number of 

records contained in the 

input file(s)* 

An invalid response has DL 
been received in reply to 
message 7DC2D. 

This message should never DJ 
occur* However, when it 
does, it is to be 
interpreted as a program 
error* A sequence error has 
been detected during the 
merging process in phase 3. 

Phase 4 has read a wrong- ED 
length record* X represents 
the file from which the 
wrong- length record was 
read* (See 7DA1I for 
further explanation*) 

An invalid response has EL 
been received in reply to 
message 7DD2D* 

A sequence error has been EH 
detected in phase 4. X 
identifies the file with the 
sequence error. This 
message can occur either 
because the file was not 
pre-sequenced or the control 
data information was 
incorrectly specified in the 
MERGE control statement. 

This message indicates the ED 
number of input blocks 
bypassed during phase 4 when 
either the BYPASS option or 
exit 45 has been specified. 
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GLOSSARY 



Bucket - A location in main storage used 

for temporary storage of constants or 
values that are to be used again 
later in the program. 

Doublet - A sequence of only two records. 

Formatting - The division of a disk work 

area into portions which are assigned 
for specific purposes. 

Interleave factor - A calculated value, 

based on the order of merge, used to 
determine the gap length in the disk 
work area when interleaving output 
blocks. 

Interleaving - The output of merged blocks 
to a disk work area according to a 
pattern that minimizes seek time 
during succeeding passes. 

No-op - No-operation instructions. Used as 
a switch to branch to another group 
of instructions, or to another 
routine, when switch is turned on by 
other instructions in the program. 
Usually coded as •NOP 1 or f BC 0, 



operand. * The no-op is made a branch 
by moving a hexadecimal *F0' into the 
first operand of the instruction. 

Order of merge - The number of input 

sequences that are merged into one 
output sequence. 

Pass - The processing of an input file from 
its first to its last logical record. 

Sequences - A group of records in a 

specified sequential order. Also 
referred to as strings. 

Set - The number of sequences equal to the 
order of merge. 

Strings - See sequences. 

Winner - The record that is selected to be 
moved to the output area as the 
result of a comparison or a series of 
comparisons. The "winning" record is 
the one that is determined to be the 
next one to fit in the sequence 
currently in the output area. 
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